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Wer den Computer zu seinem 
Hobby oder Beruf macht, steht in 
mehrerer Hinsicht vor einer 
schwierigen Wahl. Er muß sich 
zwischen einer Vielzahl von Peri- 
pherie, Betriebssystemen und 
Programmiersprachen entschei- 
den. Hier zeigen wir Ihnen die 
wichtigsten Programmierspra- 
chen, ihre Entwicklungsge- 
schichte und was sie können. 


2: braucht Spra- 
che. Wenn sich zwei Men- 
schen miteinander unterhal- 
ten, benutzen sie dazu das gespro- 
chene Wort oder, sofern sie nicht die 
gleiche Sprache verstehen, Hände und 
Füße. Dieses Prinzip läßt sich nicht 
ohne weiteres auf die Verständigung 
zwischen Mensch und Computer 
anwenden. Kommunikation ist der 
Datenaustausch zwischen mehreren 
Parteien, die einander verstehen müs- 
sen, jedoch ist ein Computer im Urzu- 
stand alles andere als verständig. Er 
besitztlediglich eine mehr oder weniger 
große Anzahl von Fähigkeiten, die er 
sehr schnell ausführen, aber nicht selb- 
ständig koordinieren kann. 





Programmiersprachen sind, im Ge- 
gensatz zur weitverbreiteten Meinung, 
kein Mittel, um sich mit dem Computer 
zu unterhalten. Sie dienen lediglich 
dazu, dem Computer über eine Kette 
von Befehlen mitzuteilen, was er Schritt 
für Schritt zu tun hat. Programmierung 
wurde lange Zeit unter dem Hauptau- 
genmerk der Mensch-Maschine-Kom- 
munikation betrachtet. Der wichtigste 
Aspekt lag darin, zu Problemlösungen 
unter möglichst effizienter Nutzung der 
Maschinenkapazität zu gelangen. Seit 
Computer in jüngster Zeit eine stärkere 
Verbreitung erfahren haben, rückte 
jedoch ein zweiter Gesichtspunkt 


6 


immer mehr in den Vordergrund: Die 
Programme werden komplexer und der 
Wartungsaufwand (Korrektur oder 
Erweiterung eines Programms) immer 
größer. Dadurch, daß an vielen Pro- 
grammen große Teams über lange Zeit- 
räume hinweg arbeiten, geraten Pro- 
grammiersprachen auch mehr und 
mehr zum Kommunikationsmittel zwi- 
schen diesen Gruppen von Menschen. 
Das bedeutet, daß ein guter Program- 
mierer immer seine Programme auch 
für seine Nachwelt verständlich gestal- 
ten, und seine Kunsttertigkeit nicht mit 
der Anwendung von Programmiertricks 
unter Beweis stellen sollte Einem 
potentiellen Benutzer, der das Pro- 
gramm lesen und eventuelländern muß, 
sollte die Funktionsweise möglichst 
schon beim Lesen klar werden. 

Statt »Programmiersprache« wäre die 
Bezeichnung »Kommandosequenz« ei- 
gentlich richtiger. Was dem Computer 
befohlen wird, führt er geduldig und 
beliebig oft aus, einzige Bedingung ist 
ein fehlerfreies Programm. Einige Psy- 
chologen behaupten denn auch, die 
Beliebtheit von Computern sei darauf 
zurückzuführen, daß viele Menschen 
ihre diktatorischen Triebe beim Pro- 
grammieren ausleben! 

Wenden wir uns der Frage zu, die 
wohl jeden Computeranwender irgend- 
wann einmal bewegt, nämlich, was 
denn welche Programmiersprache 
wohl zu leisten vermag. 

im Laufe der Computergeschichte, 
die seit den ersten Relaisrechnern Kon- 
rad Zuses nicht mehr als ein halbes 
Jahrhundert zählt, wurde eine Unzahl 
Programmiersprachen, Spracherweite- 
rungen und Dialekte entwickelt. Dabei 
standen immer zwei Überlegungen im 
Vordergrund. Zum einen mußten die 
Hardwarevoraussetzungen berück- 
sichtigt werden. Zum anderen orien- 
tieren sich die Programmentwickler an 
den zu bearbeitenden Problemstellun- 
gen und den Bedürfnissen der Anwen- 
der. Je nach Computertyp und Pro- 
blemstellung werden vom Programmie- 
rer verschiedene Programmstrukturen 
(Module, Bilockkonzept, Verbundty- 


pen), spezialisierte Befehle und unter- 








schiedliche Datentypen (Integer, Real, 
Complex, String, etc.) benötigt. Auf die- 
ser Grundlage entwickelten sich neben 
den bekannten Sprachen eine unüber- 
schaubare Anzahl Exoten, die meistens 
nur in einzelnen Universitäten einge- 
setzt wurden. 


Vielfalt = Freud 
oder Leid? 


An kaum einem Punkt scheiden sich 
die Geister in der Computerszene so 
stark wie in der Auswahl der Beurteilung 
der Programmiersprachen. Wer den 
Heimcomputer zu seinen Hobbies 
zählt, lernt in aller Regel zunächst fleißig 
Basic. Schließlich gehört ja der Basic- 
Interpreter zum Lieferumfang. Im Laufe 
der Zeit werden die eigenen Pro- 
gramme immer länger und unübersicht- 
licher, die einzelnen Programmteile 
sind durch ein unentwirrbares Geflecht 
von GOTO-Anweisungen miteinander 
verknotet (böse Zungen sprechen des- 
halb von »Spaghetti-Code«). 

Mit dem wachsenden Bedürfnis nach 
Strukturierung, die in Basic nur jemand 
mit viel Selbstdisziplin erreicht, und 
nach Geschwindigkeit, die für Basic ein 
Fremdwort ist, sieht man sich nach Aus- 
wegen um. Dabei fühlt sich die eine 
Gruppe wie magisch von dem Begriff 
Assembler angezogen und begibt sich 
auf die unterste Sprachebene, um 
fortan in mühseliger Kleinarbeit Byte für 
Byte zu programmieren. Hiermit wird 
zwar ein Höchstmaß an Geschwindig- 
keit möglich, aber die Übersichtlichkeit 
kommt nach wie vor zu kurz. Die zweite 
Gruppe der Programmier-Gemeinde 
wendet sich deshalb modernen Hoch- 
sprachen zu, wie Pascal, Forth, Modula, 
Comal, Ada, C und so weiter. Diese 
Sprachen zwingen den Programmierer 
dazu, seine Programme modular (dies 
bedeutet, einzelne Aufgaben werden in 
»Paketen« oder »Modulen« zusammen- 
gefaßt) zu gestalten. Durch die so 
erreichte Übersichtlichkeit lassen sich 
Programme später von jedermann, 
Sprachkenntnisse vorausgesetzt, 
nachvollziehen und ändern. Zudem 








sind einige dieser Sprachen sehr 
assemblernah, wie zum Beispiel Forth, 
womit auch Geschwindigkeit kein Pro- 
blem mehr ist. Moderne Programmier- 
sprachen unterstützen also Programm- 
strukturen und gehen ebenso mit 
Daten- und Kontrollstrukturen problem- 
gerecht um. 

Dennoch werden im professionellen 
Bereich (Universitäten, Verwaltung) 
»klassische« Sprachen bevorzugt, wie 
PL/1, Cobol und Fortran. Es sprechen 
auch gute Gründe dafür: So sind die 
neueren Programmiersprachen oftmals 
auf der vorhandenen Hardware noch 
nicht verfügbar, oder sie vertragen sich 
mit bereits vorhandenen Softwarekom- 
ponenten nicht. Ein anderer Faktor sind 
die Vorkenntnisse des Wartungsperso- 
nals und und und .... Jeder Informatik- 
student, jeder Praktiker kann diese 





Reihe beliebig fortsetzen. Und schließ- 
lich ist gute Software immer noch der 
Triumph des Programmierers, nicht der 
der Programmiersprache. 

Seit das Betriebssystem CP/M auf 
Computern wie dem Commodore 128, 
Schneider CPC, oder dem Atari ST 
einen neuen Frühling erlebt, werden 
diese Klassiker neuerdings auch auf 
Heimcomputern interessant. Sehr 
wahrscheinlich wird sich ein breiter 
Anwenderkreis hierfür finden. Welcher 
Programmierer begrüßt es nicht, wenn 
er seine Produkte teilweise in der 
»guten Stube« austesten kann? 

Eine Sonderstellung unter den Pro- 
grammiersprachen nehmen die Spra- 
chen für »künstliche Intelligenz« (Kl) 
ein. Deren bekannteste Vertreter hei- 
Ben Lisp und Prolog. KlI-Sprachen 
bauen auf einem grundlegend neuen 
Konzept auf, bei dem der Programmie- 
rer dem Computer im Dialog sein Pro- 
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blem mitteilt. Wegen des hohen Spei- 
cherbedarfs sind KlI-Programme auf 
Microcomputern nur sehr einge- 
schränkt einsatzfähig. Dies wird sich 
jedoch bald ändern. Man darf gespannt 
sein, wie sich Kl auf den 16-Bit- 
Computern entwickeln wird, die janicht 
nur in punkto Schnelligkeit, sondern 
auch im Speicherangebot einen ganz 
neuen Standard setzen. Der Künstli- 
chen Intelligenz ist in diesem Sonder- 
heft ein eigener Beitrag gewidmet. 

Fassen wir zusammen: Sinnvoll las- 
sen sich die Programmiersprachen in 
vier Gruppen unterteilen: 


1. Assemblersprachen: Sie bieten 
den Vorteil, daß sie die Möglichkeiten 
der Hardware optimal ausnutzen. 
Assembler versteht jeder Prozessor 
unmittelbar. Jede höhere Programmiier- 


sprache muß beim Programmablauf 
erst in Assemblercode übersetzt wer- 
den und ist deshalb weniger universell. 
Gegen Assembler sprechen die müh- 
selige Programmierung, die Gebunden- 
heit an Prozessor und Hardware sowie 
die schwierige Wartung. 

2. Klassische Hochsprachen: Sie 
sind zur Zeit am weitesten verbreitet, 
aber genügen wegen ihrer altertümli- 
chen Konzeption den Anforderungen 
moderner Programmierung nicht mehr. 

3. Moderne Hochsprachen: Sie kön- 
nen sich gegendie »Alteingesessenen« 
nur langsam durchsetzen. Sie bieten 
Strukturierungshilfen, ausgeprägte 
Möglichkeiten der Datenbeschreibung, 
und unterstützen die Selbstdokumenta- 
tion des Programmtextes durch eine 
angemessene Verbalisierung. 

4. Kl-Sprachen sind heutzutage 
noch Gegenstand intensiver Forschun- 
gen und stellen eine völlig neue und 





andersartige Klasse von Programmier- 
sprachen dar. In diesem Beitrag wollen 
wir uns deshalb nicht weiter mit ihnen 
beschäftigen. 

Wie Sie gesehen haben, ist der Spra- 
chenwald immer noch sehr dicht, auch 
wenn man sich auf die Auswahl der 
wichtigsten Programmiersprachen 
beschränkt. Ein bedeutendes Auswahl- 
Kriterium sind die qualitativen Merk- 
male. Bevor wir diese besprechen, 
noch zu einigen zentralen Begriffen: 

Algorithmus - Jedem Programm lie- 
gen ein oder mehrere Lösungsverfah- 
ren zugrunde, oft auch als Algorithmus 
bezeichnet. Ein solcher Algorithmus ist 
definiert als eindeutige und vollständige 
Vorschrift zur Lösung einer Problem- 
klasse mit einer Abfolge von Schritten, 
die in einem endlichen Zeitraum ausge- 
führt werden. 

Daten heißen dabei die Objekte, die 
der Algorithmus bearbeitet. 

Programm nennt man folgerichtig die 
maschinengerechte Aufbereitung der 
Daten und des Algorithmus. Diese Auf- 
bereitung geschieht mit Hilfe einer 
künstlichen Sprache, eben der Pro- 
grammiersprache. Diese setzt sich 
aus einer Menge von Zeichen zusam- 
men, die ihrerseits nach bestimmten 
Regeln zusammengesetzt werden kön- 
nen. Die somit geschaffenen Sprach- 
elemente werden von der Maschine 
unmittelbar (als Maschinensprache) 
oder unter Zuhilfenahme von Überset- 
zungsprogrammen (als Hochsprache) 
»verstanden«e. Der Übersetzer stellt 
nichts weiter dar, als einen speziellen 
Algorithmus, der in der Lage ist, alle 
Befehle einer Hochsprache in den ent- 
sprechenden Assemblercode zu trans- 
formieren. Er ist grob vergleichbar mit 
einer Bibliothek von kleinen Assembler- 
Unterprogrammen, wobei jedem Befehl 
der Hochsprache eines dieser Unter- 
programme zugeordnet ist. 


Compiler und 
Interpreter 


Übersetzungsprogramme gliedern 
sich in zwei Typen, die die gleiche Auf- 
gabe auf unterschiedliche Weise erfül- 
len. Als erstes sind die Compller zu 
nennen. Sie tauchten auch in der 
geschichtlichen Entwicklung zuerst 
auf. Der Compiler übersetzt den Pro- 
grammtext (Quellcode) in einem oder 
mehreren Durchgängen (Passes) kom- 
plett in Assemblercode (Objektcode). 
Der Compiler selbst wird daher beim 
Programmlauf nicht mehr benötigt. 
Natürlich benutzt man für unterschiedli- 
che Computer, mit verschiedener Hard- 
ware und Maschinensprache auch 
unterschiedliche Compiler. 
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Der zweite im Bund der Dolmetscher 
nennt sich Interpreter. Er ist der fleißi- 
gere von beiden. Zunächst muß der 
Quellcode direkt im Arbeitsspeicher 
des Computers abgelegt werden. 
Sodann beginnt das Interpretieren. Das 
heißt nichts weniger, als daß der Inter- 
preter während des Programmlaufs 
Befehl für Befehl holen muß. Natürlich 
ist diese Vorgehensweise in höchstem 
Maße unökonomisch und langsam. 
Während ein Compiler die ersten drei 
der genannten vier Arbeiten nur genau 
einmalausführen muß, beschäftigen sie 
den Interpreter bei jeder Programmwie- 
derholung aufs neue. 

Zu Beginn des Computerzeitalters, 
als Rechenzeit noch sehr teuer war, 
wurden daher ausschließlich Compiler 
entwickelt. Interpreter konnten sich 
erst mit höheren Prozessorleistungen 
durchsetzen. Sie werden auch heute 


noch in Profikreisen wegen ihres 
gemächlichen Arbeitstempos ver- 
schmäht. 
Die Qualität 
® 
von Programmier- 
sprachen 


Um beurteilen zu können, welche 
Eigenschaften gute Programmierspra- 
chen charakterisieren, wenden wir uns 
zunächst der Frage zu, welche Anfor- 
derungen an ein hochwertiges Pro- 
gramm zu stellen sind. 

Die Forderung nach Fehlerfreiheit 
erscheint auf den ersten Blick banal. 
Die Erfahrung zeigt nämlich, daß 
100%ig korrekte Programmsysteme ab 
einem gewissen Umfang kaum noch 
möglich sind. Hat ein Programm eine 
gewisse Komplexität erreicht, istes fast 
unmöglich, seine Korrektheit zu bewei- 
sen, also Testdurchläufe zu finden, die 
tatsächlich alle Eventualitäten berück- 
sichtigen. Als Maß für die Korrektheit 
eines Programmes wird deshalb häufig 
von der Zuverlässigkeit gesprochen. 
Diese gibt die Wahrscheinlichkeit an, 
mit der ein Programm für eine Zahl von 
Anwendungsfällen in einer bestimmten 
Zeitspanne fehlerfrei arbeitet. Gerade 
die jüngste Vergangenheit hat hierfür im 
Bereich der Mikrocomputer einige 
negative Beispiele geliefert. So konn- 
ten Fehler in einigen Betriebssystemen 
oftmals erst nach der Auslieferung der 
neuen Geräte beseitigt werden. 

Verständlichkeit deckt sich mit Forde- 
rungen nach Lesbarkeit, Überschau- 
barkeit und Selbstdokumentation. Pro- 
gramme sollten sich, sobald sie eine 
gewisse Länge überschreiten, in funk- 
tionelle Einheiten gliedern. Andernfalls 
wird der Programmierer oft, noch wäh- 
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rend er an ein und demselben Pro- 
gramm arbeitet, an der selbst produ- 
zierten Unordnung scheitern. Man dif- 
ferenziert unter dem Aspekt der Ver- 
ständlichkeit zwischen der statischen 
und der dynamischen Programmstruk- 
tur. Die statische Strukturgestaltung 
dient dem Ziel, ein übersichtliches Lay- 
out des Programmtextes zu gestalten. 
Hiermit wird der menschlichen Wahr- 
nehmung Rechnung getragen, die sehr 
stark auf optischen Wahrnehmungen 
beruht. Ergänzend trägt die dynami- 
sche Strukturierung dazu bei, daß Pro- 
grammabläufe unmittelbar aus dem 
Quelltext ersichtlich werden. 

Ein Faktor der an diese Zusammen- 
hänge anknüpft, ist die Anderbarkeit 
von Programmen. Wartungsfreundlich- 
keit bedeutet einerseits, daß Pro- 
gramme leicht an modifizierte Aufga- 
benstellungen angepaßt werden kön- 
nen. Andererseits spielt die Portabilität 
eine Rolle, wenn ein Programm zum Bei- 
spiel in einer neuen Softwareumge- 
bung lauffähig gemacht werden soll. 

Universalität sollte es einem guten 
Programm ebenfalls ermöglichen, ähn- 
liche Aufgabenstellungen und Abwand- 
lungen zu lösen. 

Im Zusammenhang mit der Benutzer- 
freundlichkeit sollten Programme einen 
Dialog mit dem Benutzer ermöglichen 
und Eingabefehler abfangen, ohne fal- 
sche Ergebnisse oder gar Systemab- 
stürze zu liefern. 

Effizienz hat im Laufe der Entwick- 
lung stark an Bedeutung verloren. Zu 
Zeiten, da Speicherplatz noch Mangel- 
ware war, galten die kürzesten Pro- 
gramme als die besten. Das ging natür- 
lich zu Lasten der Übersichtlichkeit. 
Effizienzstreben wird heute daher nur 
noch mit Skepsis betrachtet. 

Die hier genannten Qualitätsmerk- 
male stehen offensichtlich in positiver 
und negativer Wechselwirkung zuein- 
ander. So geht Übersichtlichkeit mei- 
stens zu Lasten der Effizienz, verbes- 
sert dagegen aber die Anderbarkeit. 

Beginnen wir jetzt damit, die Anforde- 
rungen an eine ideale Programmier- 
sprache zu formulieren. Die Qualität 
einer Computersprache läßt sich 
danach beurteilen, inwieweit sie die 
Entwicklung von Programmen unter- 
stützt, die den uns bekannten Anforde- 
rungen entsprechen. Die folgenden 
skizzierten Merkmale müssen im engen 
Zusammenhang miteinander betrach- 
tet werden. 

Beginnen wir mit einem Punkt, der 
besonders den Einsteiger interessie- 
ren wird: 

Die Erlernbarkeit einer Sprache hängt 
wesentlich von deren Struktur und 
Umfang ab. Sie ist sehr viel einprägsa- 
mer, wenn die Zahl der Schlüsselwörter 
gering und das Sprachkonzept durch- 














gängig ist. Ebenso gewährleistet eine 
einfache Benutzung, wenn der Pro- 
grammierer sein Problem bequem mit 
einer breiten Palette von Ausdrucks- 
möglichkeiten lösen kann. 

Die Einheitlichkeit ist ein ebenso 
wichtiger wie unscharfer Begriff. Er soll 
im großen und ganzen bedeuten, daß 
für eine bestimmte Leistung möglichst 
nur genau ein Sprachmittel zur Verfü- 
gung steht. 


Kompaktheit steht mit Einfachheit in 
Einklang. Hierbei ist nicht von der 
»Würze der Kürze« die Rede, sondern 
vielmehr von der Mächtigkeit der 
Sprachkonzepte. Der Bauplan der Spra- 
che muß eine geringe Anzahl verschie- 
dener Grundkonzeptionen aufweisen, 
wie mathematische Operationen, Ein- 
und Ausgabe, Datenstrukturierung. 
Andererseits soll Kompaktheit ein 
gewisses Maß an Redundanz (= alles 
was man in der gleichen Sprache auf 
andere Weise auch darstellen kann) an 
der richtigen Stelle nicht verhindern. 
Dies fördert die Verständlichkeit und 
Zuverlässigkeit. Beispielsweise sind 
Datentypen im Grunde genommen 
redundant, doch wer möchte sich 
schon mit einer Sprache herumschla- 
gen, die ausschließlich den Datentyp 
»Zeichen« kennt? 

Die Sprache Basic wird von vielen als 
katastrophal eingestuft. Das hat einen 
guten Grund: Die Forderung nach Loka- 
lität wird von Basic so gut wie gar nicht 
unterstützt. Mit diesem Begriff ist 
gemeint, daß die Teile einer bearbeite- 
ten Aufgabe, die logisch zusammenge- 
hören, auch im Programmtext in physi- 
scher Nachbarschaft stehen sollten. 
Die berühmt-berüchtigten Sprungbe- 
fehle bewirken jedoch das genaue 
Gegenteil. 

Ein ganz anderes Kriterium ist die 
Sicherheit der Programmiersprache. 
Dazu zählt das Unterstützen der Fehler- 
freiheit eines Programmes durch 
Sprachelemente. »On Error Goto« ist 
ein solcher weitverbreiteter Befehl. Des 
weiteren sind Sprachelemente zu nen- 
nen, die die Testphase des Programms 
fördern. 

Der »Wildwuchs« der Implementie- 
rungen (= Anpassungen eines 
bestimmten Computers) bei Program- 
miersprachen, insbesondere bei den 
älteren, ist hinlänglich bekannt. Dia- 
lekte, Erweiterungen, aber auch Ein- 
schränkungen beeinträchtigen die Por- 
tabilität von Programmen im besonde- 
ren Maße. Mit der Standardisierung 

Fortsetzung auf Seite 10 
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befassen sich daher nationale und 
internationale Institute. Die wichtigsten 
sind das Deutsche Institut für Normung 
(DIN), das American National Standards 
Institute (ANSI) und die International 
Organization for Standardization (ISO). 
Die Benutzer akzeptieren allerdings die 
Standards unterschiedlich. So sind 
Standards von Basic nahezu unbe- 
kannt, während sie sich bei Sprachen 
wie Pascal oder Fortran zunehmend 
durchsetzen. 

Was für die Effizienz bei Programmen 
gesagt wurde, verkehrt sich bei den 
Sprachen in das genaue Gegenteil: Für 
den Übersetzer istsie von großer Wich- 
tigkeit. Zum einen sollte der Überset- 
zungsvorgang effizient sein, da bei der 
Fertigstellung eines Programmes die 
Zahl der Testläufe meistens sehr hoch 
ist. Der wichtigere Grund aber ist, daß 
das erzeugte Maschinenprogramm im 
Hinblick auf Rechenzeit und Speicher- 
bedarf optimiert werden sollte. Soge- 
nannte »Optimierende Übersetzer« 
sind teilweise in der Lage, das erzeugte 
Maschinenprogramm effizienter zu 
gestalten, als dies der Benutzer durch 
Programmiertricks erreichen kann. 


Von Zuse bis Ada 


Wir besitzen nun ein gutes Hand- 
werkszeug, um Programmiersprachen 
nach den wichtigsten Gesichtspunkten 
theoretisch zu beurteilen. Fassen wir 
zusammen: Die entscheidenden Anfor- 
derungen an eine Sprache heißen 
Strukturierungshilfen, Selbstdokumen- 
tation, Datenbeschreibung, Benutzer- 
freundlichkeit und Zuverlässigkeit. 
Doch was nützt all die graue Theorie, 
wenn wir die Sprachen nicht kennen? 
Im folgenden werden daher die wichtig- 
sten unter den bisher behandelten 
Aspekten und im Rahmen ihrer 
geschichtlichen Entwicklung vorge- 
stellt. 

Die Entstehung der Programmier- 
sprachen orientiert sich immer auch an 
den Voraussetzungen der Hardware. 
Dies gilt insbesondere auch für die 
Gründerijahre. 

Als geistiger Urvater der Rechen- 
maschinen mit Programmsteuerung 
darf der Engländer Charles Babbage 
gelten. Er begann 1833 mit der Kon- 
struktion digitaler Rechenautomaten. 
Er legte seinen Maschinen aus Zahnrä- 
dern, Kurbeln und Hebeln zwei wichtige 
Erfindungen zugrunde, nämlich die 
Lochkartensteuerung und das Prinzip 
eines dekadischen Zählrades mit auto- 
matischem Zehnerübertrag. Babbages 
Projekte waren aber wegen fertigungs- 
technischer Schwierigkeiten nur in der 
Theorie funktionsfähig. Erst Elektro- 
mechanik und später die Elektronik 
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machten die Rechenautomaten lang- 
sam zu Computern. 

Der erste Rechenautomat der Welt 
mit Programmsteuerung wurde 1941 
von Konrad Zuse in Betrieb genommen. 
Die Zuse Z3 war ein Relaisrechner, der 
bereits mit Dualzahlen arbeitete und zur 
Darstellung Gleitkommazahlen 
benutzte. Mit der Z3 waren neben den 
vier Grundrechenarten auch das Zie- 
hen von Quadratwurzeln und das 
Potenzieren möglich. Ein Nachbau des 
historischen Modells, das im Krieg zer- 
stört wurde, steht im Deutschen 
Museum in München. Der erste pro- 
grammierbare Rechner Amerikas ent- 
stand 1944. Er wurde von dem Mathe- 
matiker Howard H. Aiken mit Unterstüt- 
zung von IBM entwickelt und auf den 
Namen »Mark I« getauft. Er war jedoch 
ein Ungetüm von 16 m Länge und 35 
Tonnen Gewicht und zudem langsamer 
als die früher entwickelte Z3. 

Der Phase der Relaisrechner setzte 
der Einsatz von Elektronenröhren rasch 
ein Ende. Der bekannte ENIAC war die 
erste vollelektronische Rechenanlage 
der Welt und wurde 1945 in den USA 
fertiggestellt. Er erreichte gegenüber 
den Relaisrechnern bereits die 
2000fache Rechengeschwindigkeit. 


Während die Lochkarte nur eine 
starre Programmsteuerung ermög- 
lichte (keine Schleifen, keine logischen 
Entscheidungen) begann man bald, 
sich über die flexible Speicherprogram- 
mierung Gedanken zu machen. Als 
erstem gelang es dem Amerikaner John 
Neumann das genannte Problem auf 
einem Rechner zu verwirklichen. Der 
bereits 1944 von Neumann konzipierte 
Computer (EDVAC) erfüllte folgende 
Forderungen: Das Programm mußte, 
wie auch die zu verarbeitenden Daten, 
in der Maschine gespeichert werden. 
Außerdem benötigte man bedingte 
Befehle wie Vorwärts- und Rückwärts- 
verzweigungen. Jeden Befehl konnte 
zudem die Maschine selbst, wie jeden 
anderen Operanden ändern. 

Befehle bestanden aus einem 
Operations- und einem Adreßteil. Im 
Operationsteil wird eine Angabe 
gemacht was zu tun ist (zum Beispiel 
Ausführung einer Multiplikation), der 
Adreßteil zeigt an, wo sich die zu verar- 
beitenden Daten befinden und wohin 
sie anschließend zu übertragen sind. 
Hier ist also die Rede von den ersten 
Assemblersprachen, an deren Grund- 
prinzipien sich bis heute nicht geändert 
hat. 

Der Schritt von der starren Pro- 
grammsteuerung zum flexiblen Pro- 
gramm leitete die Wende vom Rechner 
zur Datenverarbeitung ein. Die Röhren- 
computer der ersten Generation 


erreichten mit dem SSEC (Selective 
Sequenz Electronic Calculator) Ende 





der vierziger Jahre einen Höhepunkt. 
Dieser besaß nicht weniger als 12000 
Elektronenröhren und etwa 21500 
Relais und wurde von 36 Lochstreifen- 
lesern gesteuert. Er führte die Berech- 
nungen der Mondbahn durch, die 20 
Jahre später im Apollo-Raumfahrtpro- 
gramm verwertet wurden. Mit dem Ein- 
zug der Transistortechnik und später 
mit den integrierten Schaltkreisen 
wuchsen fortan Rechnerleistung und 
Speicherkapazität immer schneller. 
Dies war die Voraussetzung für die 
Schaffung der höheren Programmier- 
sprachen. 


Die frühen Jahre 
„ Foriran 


Fortran ist die älteste der hier behan- 
delten Hochsprachen und setzt einen 
Meilenstein in der Geschichte. Anfang 
der fünfziger Jahre wuchs die Zahl der 
Computer rasch. An Serienfertigung 
war noch nicht zu denken und es war 
jedes Gerät ein Einzelstück mit eigener 
Hardware und eigenem Assembler. So 
wurde bald der Wunsch nach einer Pro- 
grammiersprache laut, die übertragbar 
und einfach zu programmieren sein 
sollte. 1952 wurde der Grundstein für 
Fortran gelegt, zu einer Zeit, da die Pro- 
grammierung nur wenigen Spezialisten 
und ausschließlich in Assembler mög- 
lich war. John W. Backus war einer der 
Federführenden, dem die Programmier- 
gemeinde Fortran zu verdanken hat. 

Der Hauptgrund für die Entwicklung 
war die Schwerfälligkeit der Assembler- 
programmierung. 75 Prozent der 
Kosten eines Rechenzentrums verur- 
sachte damals die Fehlersuche. Ver- 
ständlichkeit war daher ein wesentli- 
ches Entwurfsziel. Dadurch, daß die 
teuere Hardware optimal ausgenutzt 
werden mußte, waren die Rahmenbe- 
dingungen für Fortran bereits vorge- 
zeichnet. Vorrangig wurden Sprachele- 
mente implementiert, die der Speicher- 
und Laufzeiteffizienz nachkamen. 
Einige dieser Konzepte werden noch 
heute als sehr nachteilig angesehen - 
sind aber immer noch in Fortran enthal- 
ten. 

1955 erschien ein Programmier- 
handbuch, und zwei Jahre später 
wurde die erste Implementierung auf 
einer IBM 704 freigegeben. Damit 
stand Fortran erstmals einer breiten 
Zahl von Programmierern zur Verfü- 
gung. 

Der Name steht für FORmula TRANSs- 
lating system (Formelübersetzer). Und 
genau dort liegt auch der Anwendungs- 
schwerpunkt der Sprache. Rechneri- 
sche Probleme lassen sich in ihr leicht 
und natürlich ausdrücken. Damit wird 


























der Erlernbarkeit der Sprache Rech- 
nung getragen. Im ingenieurwissen- 


schaftlichen und mathematischen 
Bereich gilt Fortran auch heute noch als 
die wichtigste Programmiersprache. So 
bietet sie zum Beispielneben den allge- 
mein gebräuchlichen Zahlentypen Real 
(Fließkommazahlen) und Integer 
(Ganze Zahlen) auch noch den Typ 
»Double Precision« für Rechnungen mit 
höherer Genauigkeit sowie »Logical« für 
boolsche Operationen. Großrechner- 
Versionen beinhalten zudem noch den 
Typ »Complex«, der in der theoreti- 
schen Elektrotechnik eine sehr wich- 
tige Rolle spielt. 

Das Format dieser Sprache ist streng 
zeilenorientiert und erlaubt normaler- 
weise nur einen Befehl je Zeile. Das 
hängt damit zusammen, daß Fortran 
zunächst als lochkartenorientierte 
Sprache entstand. Grundsätzlich 
mußte man damals für jede neue Anwei- 
sung eine neue Lochkarte (beziehungs- 
weise Zeile) verwenden. Wie auch in 
Basic, das später aus Fortran entstand, 
mußte bei den ersten Versionen viel mit 
dem Goto-Befehl umhergesprungen 
werden. Neuere Versionen wie Fortran 
V und Fortran 77 bieten demgegenüber 
schon strukturierende Sprachelemen- 
te wie IF....THEN.... ELSE... ENDIF. 

Nachdem die 1958 geschaffene Ver- 
sion Fortran Il eine mäßige Verbreitung 
gefunden hatte, entstand 1962 das in 
weiten Kreisen akzeptierte Fortran IV. 
Den fortschreitenden Auswüchsen 
immer neuer Versionen wurde 1966 
Einhalt geboten, mit einer Version, die 
größtenteils mit Fortran IV identisch 
war. Schließlich überarbeitete das ANSI 
Fortran 66 im Jahr 1977 nochmals und 
beseitigte einige eklatante Mängel. 

Unter CP/M ist Fortran derzeit für fast 
alle Mikrocomputer mit Z8B0-Prozessor 
erhältlich, ebenso wie eine Reihe von 
Fortran-Implementationen für MS-DOS- 
Computer. 


Cobol - 
die Geschäftige 


Die Programmiersprache Cobol ent- 
stand 1959 auf Initiative des US- 
Verteidigungsministeriums. Zu dieser 
Zeit begann Portran sich gerade auszu- 
breiten. Was noch fehlte, war eine Spra- 
che für den kommerziellen und kauf- 
männischen Einsatz. So entwickelte 
man Cobol mit dem Ziel, große Daten- 
bestände verarbeiten zu können und 
die Ein/-Ausgabe zu unterstützen. 
Insbesondere die ersten Fortran- 
Versionen waren hierfür ungeeignet. 
Ende der fünfziger Jahre wurde die 
Codasyl-Entwicklungsgruppe aus Ver- 
tretern der Computerindustrie und der 
amerikanischen Regierung gegründet. 











Schon 1960 stellte diese Gruppe die 
erste Version mit der Bezeichnung 
Cobol-60 vor. Sie war wesentlich an die 
weniger bekannte Sprache Comtran 
(COMmercial TRANslator) angelehnt. 
Aufgrund der hastigen Entwicklung von 
Cobol innerhalb eines halben Jahres 
ergaben sich viele Ungereimtheiten, 
die sich teilweise durch alle Neuent- 
würfe hindurchschleppten und auch 
heute noch nicht ganz beseitigt sind. 
Cobol-61 war dann die Grundlage für 
alle späteren Versionen. Sie war zu 
Cobol-650 nicht kompatibel. 1965 
wurde als wesentliche Neuerung die 
Unterstützung von Massenspeichern 
und Tabellen mit eingebracht. 

Die Sprachelemente von Cobol sind 
je nach ihrer Funktion in Module zusam- 
mengefaßt. Das ANSI entwickelte bis 
1974 einen zwölf Module umfassen- 
den Standard, namentlich Cobol 
ANS-74. Er wurde 1980 nochmals ver- 
bessert. Den jeweils neuesten Stand 
veröffentlicht das CODASYL-Komitee 
im Abstand von drei Jahren. Der Stan- 
dard für die Bundesrepublik Deutsch- 
land ist in der DIN-Norm 66028 nach- 
zulesen. 

Die kurze Darstellung der Entwick- 
lungsgeschichte läßt erkennen, daß 
Cobol ebenfalls eine alte Sprache ist. 
Cobol-Programme müssen aus heuti- 
ger Sicht als mangelhaft angesehen 
werden. 

Ursprünglich verfolgte man wie bei 
keiner anderen Sprache das Ziel der 
Lesbarkeit des Programmtextes. Die 
Sprache sollte dann auch leicht erlern- 
bar sein. Der Programmtext erinnert 
stark an (englische) Prosa. Cobol- 
Programme simulieren nämlich die 
natürliche englische Sprache. So wird 
zum Beispiel jeder Befehl mit einem 
Verb eingeleitet. Die Grundrechenarten 
stehen nicht als Symbole, sondern als 
Befehlswörter (add, divide) zur Verfü- 
gung. Ebenso werden logische Opera- 
toren ausgeschrieben. Ein Beispiel: 
Wenn die Variable A größer ist als Null, 
soll der Variablen B die Summe der 
Variablen C und A zugeordnet werden. 
In Basic würde man das so formulieren: 
IF A>O THEN B= C+A 
Daraus wird in Cobol: 

IF A GREATER THAN ZERO ADD C TO 
A GIVING B. 

Daß so aus komplizierteren mathema- 
tischen Formeln monströse Gebilde 
werden, leuchtet ein. Dahöhere mathe- 
matische Funktionen in Cobol ganz feh- 
len, ist die Sprache für wissenschaftli- 
che Anwendungen völlig ungeeignet. 

Derartige Beispiele verdeutlichen, 
daß das Entwicklungsziel von Cobol 
nicht sinnvoll erreicht wurde. Dennoch 
ist Cobol auch heute noch die weltweit 
am stärksten verbreitete Programmier- 
sprache. Ganze Rechenzentren arbei- 








ten mit ihr. Die hohen Investitionen und 
die Gewöhnung des Personals an diese 
Sprache wird auch in Zukunft für ihrer 
Erhalt sorgen. Zudem erreicht auch 
noch keine neuere Programmierspra- 
che die Cobol-Domäne Datenorganisa- 
tion. 

Wer einen Mikrocomputer mit den 
Betriebssystemen CP/M oder MS-DOS 
(PC-DOS) besitzt, kann in Cobol ein- 
steigen. 


PL/I1 = 
von allem etwas 


Fortran und Cobol sind charakteri- 
stisch für die strikte Trennung in kom- 
merzielle und technisch-wissenschaft- 
liche Anwendungen zu Beginn der 
sechziger Jahre. Daneben wurden 
Computer nur noch in Spezialgebieten 
eingesetzt. Im Laufe der Zeit traten aber 
die Merkmale der naturwissenschaft- 
lich-technischen Bereiche in den 
betriebswirtschaftlichen Anwendun- 
gen immer mehr hervor und umgekehrt. 
So waren die kommerziellen Anwender 
mehr und mehr auf Methoden aus der 
Statistik, Operations Research und 
Ökonomie angewiesen. Mathematiker 
und Ingenieure stellten zunehmend 
höhere Ansprüche an Datenverwaltung 
und an die Ein-/Ausgabeunterstützung. 

Als logische Konsequenz kamen die 
Anbieter den neuen Bedürfnissen mit 
einer universellen Hard- und Software- 
konfiguration nach. Hardwareseitig ent- 
wickelte IBM die Rechnerfamilie /360 
mit dem Betriebssystem OS/360. 
Diese Anlagen zählten sich bereits zur 
dritten Computergeneration (das heißt, 
die Schaltkreise waren in Hybridtechnik 
ausgelegt, einer unmittelbaren Vorstufe 
der integrierten Schaltkreise). 

Bei den Überlegungen zu einer 
neuen Sprache war man zunächst von 
Fortran ausgegangen. Die Organisation 
SHARE (Society for Help to Avert 
Redundant Effort), eine Vereinigung 
wissenschaftlicher IBM-Anwender, 
einigte sich mit der Firma IBM auf die 
Gründung eines Sprachkomitees. 
Zunächst war die Rede von Fortran Vi. 
Man gelangte aber schon nach kurzer 
Zeit zu der Erkenntnis, daß die 
gewünschten Verbesserungen eine 
Kompatibilität mit Fortran unmöglich 
machten. Die Anlehnung an Fortran 
hätte außerdem die große Gruppe der 
kommerziellen Verwender abge- 
schreckt. So entschied man sich für die 
Entwicklung einer gänzlich neuen Spra- 
che. Deren wichtigsten Entwurfsprinzi- 
pien waren: allgemeine Einsetzbarkeit 
und weitgehende Ausdrucksfreiheit. 
Der Sprachaufbau sollte modular sein 
und Testhilfen sowie Möglichkeiten zur 
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Fehlerbehandlung bieten. Ein großen- 
teils gegenläufiges Ziel bestand in den 
Forderungen, den vollen Zugriff auf 
Hardware- und Betriebssystemleistun- 
gen bei gleichzeitiger Maschinenunab- 
hängigkeit zu gewähren. 

Nach vielen drastischen Überarbei- 
tungen hatte sich der Sprachumfangbis 
1965 stabilisiert. Nachdem die Abkür- 
zung für NPL (New Programming Lan- 
guage) bereits vergeben war, einigte 
man sich schließlich auf PL/I (Program- 
ming Language one). Im August 1966 
wurde dann der erste Compiler für eine 
IBM /360 freigegeben. Schließlich ver- 
abschiedeten das ANSI und die ECMA, 
ein europäisches Standardisierungsko- 
mitee, einen vorläufig endgültigen Stan- 
dard. Die Verbreitung von PL/1 nahm 
zunächst rasch zu, wurde aber später 
den gesetzten Erwartungen nicht 
gerecht. 

Kommen wir nun zu der Sprache, die 
jeder, und wenn nur vom Hörensagen, 
kennt. Sie kann sich rein zahlenmäßig 
im Mikrocomputerbereich als die am 

In den Sprachumfang von PL/1 wur- 
den viele Konzepte aus Fortran, Cobol, 
Algol und Jovial übernommen (letztere 
werden hier wegen ihrer geringen Ver- 
breitung nicht behandelt). Leider 
gelang es nicht, sich bei der Auswahl 
nur auf die guten Eigenschaften der 
Vorgänger zu beschränken. Zudem ist 
der Sprachumfang riesig. Eine fast 
unüberschaubare Anzahl von Schlüs- 
selwörtern zwingt zu Maßnahmen, 
durch die der Programmierer auch mit 
Teilmengen der Sprache sinnvoll arbei- 
ten kann. Daher ergeben sich für die 
PL/1 -Syntax sehr freizügige Vorschrif- 
ten. Einerseits existiert keine Zeilen- 
struktur, Zwischenräume, Einrücken 
und Kommentare dürfen fast beliebig 
verstreut werden. Da passiert es dann 
auch nicht selten, daß beim Program- 
mieren das Format aus allen Fugen 
gerät. Außerdem sind die Schlüssel- 
wörter nicht reserviert, wohl wegen 
ihrer großen Anzahl. Gebilde wie 
IF ELSE=THEN THEN IF=ELSE; ELSE 
IF=THEN 
tragen wohl zur Verwirrung jedes hoff- 
nungsvollen Programmierers bei. Ein 
wesentlich angenehmerer Fortschritt 
ist andererseits das ausgeprägte 
Blockkonzept der Sprache. PL/1 orien- 
tiert sich wesentlich an Prozeduren. All- 
gemein kann gesagt werden, daß die 
Einarbeitung in PL/1 viel Zeit braucht. 
Wer damit trotz aller Warnungen begin- 
nen will, kann dies unter CP/M oder auf 
PC-Kompatiblen tun. 
weitesten verbreitete Sprache der Welt 
rühmen. Sie ist schon fast als Teil der 
Allgemeinbildung zu betrachten. Ganz 
anders als bei den »großen professio- 
nellen«e wurde die Entwicklung von 
Basic (Beginners All-purpose Symbolic 
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Instruction Code) nicht durch eine 
Industrie- oder Militärlobby getragen. 
Die Ausrichtung der Sprache kommt 
denn auch in ihrem Namen zum Aus- 
druck: Sie wendet sich an den Anfänger 
und soll für jeden Zweck geeignet sein. 


Basis für Einsteiger 
_ Tee > 


Ihre geschichtliche Entwicklung 
erklärt viele Aspekte des Sprachkon- 
zepts. Basic wurde von Thomas Kurtz 
und John Kemeny von 1956 bis 1971 in 
den USA am Dartmouth College ent- 
wickelt. Ziel war es, Studenten, die sich 
nicht ausschließlich mit Ingenieurwis- 
senschaften beschäftigten, das Pro- 
grammieren zu erleichtern. So schlu- 
gen sich denn auch die Erfordernisse 
der allgemeinen Ausbildung einer Uni- 
versität in der Sprache nieder: Bei der 
angesprochenen Zielgruppe erschien 
ein eigener Programmierkurs nicht 
erforderlich. Vielmehr sollte das Pro- 
grammieren im Rahmen der Mathema- 
tikvorlesungen gelehrt werden. Hieraus 
erklärt sich auch die Ausrichtung von 
Basic auf mathematische Probleme. Die 
neue Sprache sollte leicht erlernbar 
und leicht zu benutzen sein. Dies war 
nach Meinung von Kurtz und Kemeny 
bei Fortran und Algol nicht der Fall. So 
erklärt sich auch, daß bei Basic nicht, 
wie bei PL/1, auf Bewährtes zurückge- 
griffen wurde. 

Im Gegensatz zu den bisher behan- 
delten Sprachen wurde Basic als voll- 
ständiges Programmiersystem konzi- 
piert. Der Benutzer kann im Dialog mit 
Basic arbeiten, ohne die Basic- 


Umgebung zu verlassen. Hierzu exi- 
stiert der »Direkt-Modus«, der das Edi- 
tieren, Ausführen und Speichern von 
Programmen unterstützt. 


Basic ist 
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zudem eine typische Interpreter- 
Sprache, für die allerdings auch ver- 
schiedene Compiler erhältlich sind. 

Mit der Entwicklung des ersten Com- 
pilers begannen Kurtz, Kemny und eine 
Gruppe Studenten 1963. Im Mai 1964 
wurde dann das erste Basic-Programm 
ausgeführt; die erste Version kannte 
nur 14 Instruktionen. Diese Minimalaus- 
stattung wurde am Dartmouth College 
bis 1971 in insgesamt sechs Versionen 
schrittweise vervollständigt. Seither 
nahmen die Autoren keine Veränderun- 
gen mehr vor. Das bedeutet natürlich 
nicht, daß Basic jemals eine wirkliche 
Standardisierung erfahren hätte. Im 
Gegenteil: Durch das Fehlen einer 
Interessenvertretung professioneller 
Anwender und durch die enorme Ver- 
breitung der Sprache wucherten die 
Basic-Versionen fast uferlos. Für 
nahezu jeden Mini- und Mikrocomputer 
und selbst auf Taschenrechnern ist 
Basic erhältlich. Da von Herstellerseite 
nach dem Motto verfahren wurde 
»jedem Topf ein anderer Deckele ist 
Kompatibilität ein Fremdwort. Auch die 
Bemühungen der ECMA und ANSI in 
den letzten Jahren waren kaum von 
Erfolg gekrönt. Lediglich ein »Minimal 
Basic« wurde kompromißbereit zum 
Standard deklariert. Diese Teilmenge ist 
der ersten Sprachbeschreibung von 
1964 sehr ähnlich. Lediglich im Heim- 
computerbereich gelang es mit den 
MSX-Computern erstmals, einen wei- 
testgehenden Basic-Standard für 
Geräte verschiedener Hersteller zu 
schaffen. Haar in der Suppe war aber, 
daß die MSX-Computer wenig Verbrei- 
tung fanden. 

Ein Basic-Programm besteht aus 
nummerierten Zeilen in aufsteigender 
Folge. Dabei sind die Zeilennummern 
aus einem festgelegten Intervall zu 
wählen. Jeder Zeilennummer folgen 
eine oder mehrere Instruktionen. Die 





Zeilennummern legen die logische Rei- 
henfolge der auszuführenden Anwei- 
sungen fest. Darüber hinaus dienen sie 
als Orientierung für die Sprungbefehle. 
Beim Editieren des Programmtextes 
lokalisieren sie die Zeilen. Basic ist 
noch stärker zeilenorientiert als Fortran. 
Das geht so weit, daß eine Basic- 
Anwendung durch die Zeilenlänge 
begrenzt wird. In einigen Basic- 
Versionen sind Fortsetzungszeilen mit 
dem Zeichen »&« möglich. 

Als Datentypen sind in Basic nur 
numerische Daten und Zeichenketten 
vorgesehen. Eine Unterscheidung in 
ganzzahlig und Fließkomma, wie es von 
anderen Sprachen her bekannt war, 
wurde der Einfachheit wegen bewußt 
vermieden, ist aber dennoch auf vielen 
Computern implementiert. Für Daten- 
strukturen stehen nur ein- und mehrdi- 
mensionale Felder (Arrays) zur Verfü- 
gung. Deren Elemente können je nach 
Version entweder nur einzeln manipu- 
liert werden, oder es stehen spezielle 
Matrizenoperationen bereit. 

Die Sprunganweisungen Sind, wie 
bereits erwähnt, vielen ein Greuel. Zwar 
bieten moderne Basic-Versionen viele 
Befehle, die das strukturierte Program- 
mieren unterstützen, sie erfordern aber 
genaue Vorausplanung eines Pro- 
gramms. Im Regelfall endet bei länge- 
ren Programmen ein »Drauflosprogram- 
mieren« im Chaos aus GOTO, GOSUB 
und FOR...NEXT. 

Des weiteren beinhaltet Basic, je 
nach Ausstattung und Computer, 
Befehle für die Ein-/Ausgabe, mathema- 
tische Funktionen, Grafik, Tonerzeu- 
gung und den Zugriff auf das Betriebs- 
system. Hierauf im einzelnen einzuge- 
hen würde zu weit führen. Es sei daher 
auf entsprechende Fachliteratur ver- 
wiesen. 


Pascal - strukturiert 
und einfach 


Ein moderner Klassiker unter den 
Programmiersprachen ist Pascal. Der 
Name ist ausnahmsweise keine Abkür- 
zung. Er wurde zu Ehren des französi- 
schen Mathematikers Blaise Pascal 
gewählt, der 1642 im Alter von 19 eine 
der ersten funktionsfähigen Rechen- 
maschinen konstruierte. 

Die Wurzeln dieser Programmierspra- 
che reichen in das Ende der sechziger 
Jahre zurück. Zu jener Zeit stellten 
Nikolaus Wirth und C.A.R. Hoare Über- 
legungen an, auf der Basis von Algol 60 
eine Nachfolgesprache zu entwickeln. 
Algol 60 bot schon damals ein zufrie- 
denstellendes Sprachkonzept. Das gilt 
besonders für die Strukturierung des 
Programmablaufs und des Programm- 
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textes. Wegen dieser Vorteile wurde 
Algol zur Grundlage einer ganzen 
Klasse von Programmiersprachen, die 
bei Pascal beginnt und vorläufig von 
Ada gekrönt wird. Eine der Schwächen 
ist dagegen die unzureichende Daten- 
strukturierung. Ebenso wie Basic und 
Fortran kennt Algol 60 nur das Array. 
Die später folgende Version Algol 68 
war ähnlich wie PL/1 zu umfangreich 
und unhandlich. Mit der Entwicklung 
von Pascal verfolgte man das entge- 
gengesetzte Ziel. Der Schweizer Pro- 
fessor Nikolaus Wirth formulierte bei 
der Entwicklung der Sprache an der 
ETH Zürich die folgenden Schwer- 
punkte: Pascal sollte nur grundlegende 
Sprachkonzepte enthalten. Diese soll- 
ten natürlich definiert sein und das 
Erlernen des strukturierten Program- 
mierens als eine systematische Diszi- 
plin unterstützen. Des weiteren sollte 
sie sich effizient auf allen Computern 
implementieren lassen. 

Die erste vorläufige Version entstand 
1968. Die vollständige Beschreibung 
eines Compilers und der Sprache 
selbst war 1971 fertig. Das 1974 
erschienene Benutzerhandbuch »Pas- 
cal User Manual and Report« enthält 
eine Sprachdefinition, die heute als 
Wirth-Standard bezeichnet wird. Die 
verbreiteten Versionen Turbo- und 
UCSD-Pascal enthalten demgegen- 
über noch einige Erweiterungen, die 
vor allem Grafik und Zeichen-Strings 
betreffen. 

Durch die leichte Erweiterbarkeit von 
Pascal entstanden bald viele Dialekte. 
Deshalb und wegen der weltweiten 
Anerkennung der Sprache nahmen 
sich verschiedene Normeninstitute die- 
sem Problem an. Die ISO setzte 
schließlich 1980 einen Standard fest, 
der in der DIN-Norm 662586 nachzule- 
sen ist. Strukturierung bedeutet nicht 
nur, daß das Programm übersichtlich 
ist, sondern daß sich der Vorgang des 
Programmierens in verschiedene Aktio- 
nen aufteilt. Bevor man sich an den 
Computer setzt, sollte man das Pro- 
blem genau analysieren und in Aufga- 
benpakete zerlegen. Dann ist für jedes 
Paket ein Algorithmus zu bestimmen 
und in Pascal zu formulieren. Erst dann 
beginnt die Tipparbeit. Pascal- 
Programme entstehen also auf dem 
Papier und weniger am Bildschirm. 
Diese Vorgehensweise erreicht eine 
niedrige Fehlerquote und damit sinkt 
auch die Zahl der UÜbersetzerdurch- 
läufe, was bei einer typischen Compiler- 
sprache wie Pascal sehr angenehm ist. 

Ein Pascal-Programm ist klar geglie- 
dert in einen Vereinbarungs- und einen 
Anweisungsteil. Vereinbart werden 


zuerst alle Variablen, Konstanten und 
deren Datentypen. Im Anweisungsteil 
werden die Aufgabenpakete in Proce- 





dures formuliert. Jede Procedure ent- 
hält einen eigenen Namen. Das eigentli- 
che Hauptprogramm besteht dann nur 
noch aus dem Aufrufen der Procedures 
und steht im Programmtext ganz am 
Ende. 

Daß der GOTO-Befehl in Pascal ent- 
halten ist, verwundert eigentlich. Ange- 
sichts der Strukturbefehle IF....THEN- 
CASE kann man gut auf ihn verzichten. 
Der Vorrat an Datentypen eröffnet 
gegenüber Basic ganz neue Möglich- 
keiten. Man unterscheidet hier zwi- 
schen einfachen Typen, strukturierten 
Typen und Zeigertypen. Integer, Char, 
Boolean und Real zählen zu den einfa- 
chen Typen. Boolean bezeichnet eine 
Variable, der nur die Werte False oder 
True zugeordnet werden können. Array, 
Record, Set und File stehen als struktu- 
rierte Typen zur Verfügung. Set 
bezeichnet eine Menge. Auf diesen Typ 
sind die üblichen Mengenoperationen 
Vereinigung, Durchschnitt, Differenz, 
Untermenge und Elementüberprüfun- 
gen anwendbar. Record ermöglicht 
Verbundvariablen. Es lassen sich so 
unterschiedliche Variablentypen zu 
einer Variable zusammenfassen. 
Record war ursprünglich für kommer- 
zielle Anwendungen gedacht (Tabellen- 
darstellung). Demgegenüber werden 
mit dem Typ File nur Variablen eines ein- 
zigen Typs verkettet. Der Typ Zeiger 
(pointer) schließlich ermöglicht verket- 
tete Listen und deren bequeme Mani- 
pulation, sowie Baumstrukturen. Wem 
das noch nicht reicht, der kann sich in 
Pascal weitere einfache Datentypen 
selbst definieren. 

Pascal ist vielseitig und erzieht zum 
strukturierten Denken. Seine Verarbei- 
tung, vor allem im akademischen Be- 
reich, ist folgerichtig sehr hoch. So lie- 
gen denn auch für fast alle rechnereige- 
nen Betriebssysteme wie auch für 
CP/M und MS-DOS Pascal-Versionen 
vor. 


Forth — die etwas 
andere Sprache 


Forth entstand Anfang der siebziger 
Jahre. Charles H. Moore entwickelte 
die Sprache ursprünglich zur Steue- 
rung von Radioteleskopen. Er arbeitete 
dazu mit einem IBM-1130, einem Com- 
puter der dritten Generation. Das End- 
produkt war aber so mächtig, daß es 
Moores Computer als einen der vierten 
Generation erscheinen ließ. Er wollte 
der neuen Sprache daher den Namen 
Fourth geben. Namen mit mehr als fünf 
Buchstaben waren auf dem IBM jedoch 
nicht erlaubt. So wurde das »u« ein 
Opfer dieser technischen Unzuläng- 
lichkeit. 
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Forth ist interaktiv wie Basic. Das 
heißt, es existiert sowohl ein Interpreter 
als auch ein Compiler. Programme kön- 
nen somit erst im Direktmodus »häpp- 
chenweise« getestet und anschließend 
compiliert werden. Des weiteren ver- 
bindet Forth Merkmale der Assembler- 
sprachen mit denen der Hochspra- 
chen. 

Die Strukturierung in Forth entsteht 
durch die Definition immer neuer Worte. 
Der ohnehin schon große Sprachum- 
fang nimmt beim Programmieren stän- 
dig zu. Beliebige Befehle können zu 
einem neuen Befehl zusammengefaßt 
werden, der dann sofort wieder in wei- 
tere Befehle mit eingebaut werden 
kann. Schließlich steht für das gesamte 
Programm ein einziger Befehl am Ende 
dieser Kette. 

Selbstverständlich stellt Forth auch 
die Kontrollstrukturen zur Verfügung, 
die bereits für Pascal angesprochen 
wurden, wie IF....ELSE....ENDIF, 
BEGIN... UNTIL, BEGIN..WHILE etc. 
Das berüchtigte GOTO fehlt hier ganz, 
ergäbe auch bei diesem Sprachkon- 
zept keinen Sinn. 

Grundlegendes Prinzip von Forth ist 
das Operieren mit dem Stapelspeicher 
(Stack). Dieser funktioniert nach dem 
LIFO-Prinzip (Last In, First Out). Alle 
Werte, die auf dem Stapel abgelegt wur- 
den, lassen sich nur in umgekehrter 
Reihenfolge wieder herunternehmen. 
Für einen problemlosen Ablauf dieses 
Systems sorgen eine ganze Reihe von 
Stack-Befehlen, mit denen sich Werte 
verschieben und vertauschen lassen. 
Sämtliche mathematischen Operatio- 
nen laufen in Forth über den Stack. Man 
bedient sich hierbei der Umgekehrten 
Polnischen Notation (UPN), die recht 
gewöhnungsbedürftig und Benutzern 
von HP-Taschenrechnern bekannt ist. 

Forth ist ein sehr offenes System und 
durch seine Assemblernähe universell 
einsetzbar. Fehlende Funktionen kön- 
nen jederzeit selbst programmiert wer- 
den. Zudem ist Forth sehr schnell. Das 
Erlernen der Sprache und die Über- 
sichtlichkeit der Programme können als 
noch ausreichend eingestuft werden. 
Auf jeden Fall fasziniert Forth jeden, 
der sich länger damit beschäftigt. Für 
alle verbreiteten Mikrocomputer exi- 
stieren mittlerweile eine oder mehrere 
Versionen. 


Logo — kinderleicht 


Seymour Papert, der als geistiger 
Vater der Sprache Logo gilt, arbeitete 
12 Jahre an der Verwirklichung dieser 
»Erziehungsphilosophie«. Er leitete ein 
eigens gegründetes Entwicklungsteam 
aus Programmierern und Lehrkräften 
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am MIT (Massachusetts Institute of 
Technology) in den USA. Man arbeitete 
damals ausschließlich auf den größten 
vorhandenen Datenverarbeitungsanla- 
gen. Dadurch fand ein wesentliches 
Konzept der KlI-Sprache Lisp in Logo 
Anwendung: die Listenprogrammie- 
rung. Listen sind einfach zu definieren 
und können per Befehl manipuliert, 
kombiniert und verglichen werden. Eine 
leicht programmierbare Dateiverwal- 
tung ist nur ein Anwendungsbeispiel 
dieser Technik. 

Bekannt wurde Logo vor allem durch 
die Schildkröte, ein kleines Zeichen- 
symbol der »Turtle-Graphics«. Mit ihr las- 
sen sich auf einfache Weise die tollsten 
Grafiken zaubern. Die Schildkröte krab- 
belt über den Bildschirm und hinterläßt 
dabei eine sichtbare Spur. 


Eine Schildkröte 


machte 
Logo bekannt 


Gesteuert wird mit einfachen Befeh- 
len wie FORWARD, BACK, LEFTTURN, 
RIGHTTURN. Zusätzlich muß noch die 
Länge der zurückgelegten Strecke und 
des Drehwinkels angegeben werden. 
Ebenso ist eine Standortabfrage der 
Turtle möglich. Logo-Programme 
ähneln in der Struktur dem Baukasten- 
prinzip der Forth-Programme. Mit Hilfe 
des Interpreters lassen sich einzelne 
Bausteine erproben und später zum 
eigentlichen Programm zusammenset- 
zen. Der Komfort ist dabei in Logo 
ungleich höher als in allen bisher 
genannten Sprachen. So kann der 
Anwender vorerst Begriffe wie Archi- 
vierung, Dateien und andere spezielle 
Funktionen der Datenverarbeitung links 
liegen lassen. Diese Vorteile gehen 
aber leider zu Lasten des Speicherplat- 
zes. 

Eng mit dem Prozedurkonzept ver- 
bunden ist die Rekursivität von Logo. 
Prozeduren sindin der Lage, sich selbst 
aufzurufen. Auf diese Weise lassen sich 
schnell reizvolle grafische Gebilde 
erzeugen und gewisse mathematische 
Zusammenhänge einfach ausdrücken. 
Rekursive Strukturen sind in Basic gar 
nicht und in vielen anderen Sprachen 
nur mit hohem Aufwand zu verwirkli- 
chen. 

In die Logo-Philosophie wurden 
Erziehungstheorien des Schweizer 
Philosophen Jean Piaget eingebracht. 
Dieser hatte zuvor das Lernverhalten 
von Kindern analysiert. Tatsächlich 
wirkt Logo besser auf die Denkweise 
eines Schülers als Basic oder Pascal. 
Bemängelt werden muß bei Logo haupt- 
sächlich die geringe Verarbeitungsge- 
schwindigkeit der Programme. Sie fällt 





aber bei einem Lernsystem nicht so 
stark ins Gewicht. 

Wegen des hohen Speicherbedarfs 
sind Logo-Interpreter auf Mikrocompu- 
tern nur als Ausschnitt des Gesamtsy- 
stems erhältlich. Dies wird sich mit 
wachsendem Speicherstandard jedoch 
bald ändern. 


Comal — 
ee 7 Er ee 


Im Jahre 1973 ging Comal aus den 
Sprachen Basic und Pascal als ein 
neuer Ableger hervor. Später kamen in 
Comal noch Elemente von Logo hinzu, 
so zum Beispiel die Schildkrötengrafik. 
Zudem sind in Comal der Compiler und 
der Interpreter nicht getrennt vorhan- 
den, sondern es wurden deren beste 
Elemente in einer Zwischenstufe 
zusammengefaßt. Ein Comal-Pro- 
gramm besteht aus drei Schritten. Im 
ersten wird schon bei der Programm- 
eingabe die Syntax überprüft. Dieser 
Syntaxchecker ist selbst für den ohne- 
hin schon eingabefreundlichen Inter- 
preter ungewöhnlich komfortabel. Die 
Comal-Schlüsselworte werden sofort in 
sogenannte »loken« übersetzt, das sind 
Abkürzungen, die nur ein Byte bean- 
spruchen. Dieses Prinzip verwenden 
übrigens alle Interpreter. Der zweite 
Schritt beginnt nach dem Programm- 
start. In einer Art Compilerdurchlauf 
wird der Programmtext nach Variablen, 
Prozeduren, Funktionen und Sprüngen 
durchsucht. Die Ergebnisse dieser 
Analyse werden dann in einer geson- 
derten Liste zusammengefaßt. Man 
kann diesen Vorgang auch als eine Art 
automatische Deklaration ansehen. Im 
dritten Schritt, dem Programmlauf 
selbst, wird auf diese Liste ständig 
direkt zugegriffen. So ergeben sich 
gegenüber Basic, wo der Interpreter oft 
den ganzen Programmtext absucht, 
enorme Geschwindigkeitsvorteile. 

Die Comal-Syntax lehnt sich stark an 
die von Basic an. Im Direktmodus wur- 
den die meisten Befehle Wort für Wort 
übernommen. Das gleiche gilt für einige 
Befehle des Programm-Modus. Einige 
Comal-Versionen akzeptieren neben 
den eigenen Schlüsselworten sogar 
noch gleichbedeutende Basic-Befehle. 
Wer aus Basic zu Comal aufsteigt, ist so 
zwar vor Irrtümern einigermaßen sicher, 
jedoch wird dem Prinzip der Eindeutig- 
keit nicht gerade Rechnung getragen. 

Von Pascal wurde die Strukturiertheit 
übernommen, dessen strenge Syntax- 
vorschriften aber erfreulicherweise ver- 
mieden. Die typischen Kontrollstruktu- 
ren, die schon bei Pascal und Basic 
beschrieben wurden, sind ausnahms- 
los vorhanden. Die Lesbarkeit des Pro- 
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grammtextes wird zudem dadurch 
unterstützt, daß Comal beim Listen eine 
optische Gliederung vornimmt. 

Comal wird für fast alle gängigen 
Mikrocomputer angeboten. Erfreuli- 
cherweise stehen auch, ähnlich wie bei 
Forth, zahlreiche Public-Domain- 
Versionen zur Verfügung. Diese unter- 
scheiden sich von kommerziellen 
Sprachangeboten lediglich im Umfang. 
Es wird erwartet, daß Comal in Zukunft 
eine starke Verbreitung erfährt. Jüng- 
ster Anhaltspunkt für diese These ist 
der Beschluß der Kultusministerien, 
Pascal im Informatikunterricht allmäh- 
lich durch Comal zu ersetzen. 


C — die Zukunft? 


»C« - für diesen einen Buchstaben 
lassen viele Programmierer Pascal, 
Forth oder Fortran links liegen. Viele 
betrachten C als die Programmierspra- 
che schlechthin. Tatsächlich bietet C 
viele bestechende Vorteile, die sich von 
denen der anderen Hochsprachen 
unterscheiden. In C wurden bekannte 
Betriebssysteme wie Unix und GEM 
geschrieben. 

Die Entwicklung von C reicht bis an 
den Anfang der siebziger Jahre zurück. 
Die Namensgebung war ebenso kurios 
wie einfallslos. 1970 begann die Firma 
Digital Equipments mit der Entwicklung 
von Spezialsprachen, die die Program- 
mierung von Minicomputern unterstüt- 
zen sollten. Diese wurden einfach nach 
dem Alphabet benannt. B war also eine 
Weiterentwicklung von A und diente 
1971 dazu, Unix auf verschiedene 
Rechner zu übertragen. Bald darauf 
erkannten Dennis Ritchie und Ken 
Thompson, die damals bei Bell Labora- 
tories beschäftigt waren, die Leistungs- 
fähigkeit von B. Sie verbesserten diese 
Sprache bis 1973 entscheidend. Wie 
das Endprodukt heißt, wissen wir 
bereits. Unix wurde wenig später eben- 
falls auf C umgeschrieben. 

Wenn ganze Betriebssysteme in C 
gehalten sind, läßt sich die ungeheuere 
Effizienz dieser Sprache schon erah- 
nen. Das C-Compilat geht mit dem Spei- 
cher äußerst sparsam um, und ist 
zudem um den Faktor 50 schneller als 
vergleichbare Basic-Programme. 

Der eigentliche Befehlsvorrat von C 
ist denkbar klein. Er umfaßt nur 13 
Instruktionen. Bei der Erzeugung eines 
C-Programms wird der Quelltext zuerst 
mit dem mitgelieferten Editor oder einer 
Textverarbeitung geschrieben. Dieser 
dient dann als Eingabedatei für den 
Compiler. Bis hierher besteht also kein 
Unterschied zur Vorgehensweise mit 
den meisten anderen Compilerspra- 
chen. Der Compiler überprüft den Text 
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und übersetzt diesen mit den ihm 
bekannten Befehlen in eine Zwischen- 
datei und legt diese auf einen externen 
Speicher (zum Beispiel Diskette) ab. 
Anschließend beginnt das sogenannte 
»Linking«. Der Linker ordnet aus einer 
externen Bibliothek die noch fehlenden 
Befehle entsprechendem Assembler- 
code zu. So entsteht schließlich das 
lauffähige Programm, das fast so kom- 
pakt ist, als wäre es direkt in Maschi- 
nensprache geschrieben. Das Compi- 
lieren benötigt jedoch wegen des Zwi- 
schencodes je nach Geschwindigkeit 
des Speichermediums mehr Zeit, als 
die unmittelbare Übersetzung in 
Maschinensprache. 

Die Vorteile des Compiler-Linker- 
Prinzips wiegen diesen Nachteil bei 
weitem auf: C ist praktisch uneinge- 
schränkt portabel und die Linker- 
Funktion kann man selbst erweitern. C- 
Programme bieten neben der selbst- 
verständlichen Strukturierung einige 
ungewöhnliche aber vorteilhafte Eigen- 
schaften. So sind in Anlehnung an 
Assembler Befehle zum Inkrementieren 
und Dekrementieren vorhanden, Varia- 
ble können als Registervariable dekla- 
riert werden. Daß die Benutzung derar- 
tiger Sprachmittel einem Compiler das 
Leben leicht macht, ist klar. Einschrän- 
kungen entstehen jedoch bei Prozes- 
soren, die nur wenige Register aufwei- 
sen, wie beispielsweise die drei 8-Bit- 
Register des 6502, der nur A, X und Y 
zu bieten hat. 

Ein weiteres nennenswertes Stilmit- 
tel unter C sind Makros. Diese sind mit 
Unterprogrammen vergleichbar, die 
nicht angesprungen werden müssen, 
sondern jeweils erneut vom Compiler in 
den Objektcode eingebunden werden. 
Diese Technik bringt einen großen Zeit- 
vorteil, da Parameterübergaben und 
Sprünge entfallen. 

Im 8-Bit-Bereich ist C nur auf dem 
Z80 unter CP/M verbreitet. Eine Ver- 
sion fürden C 64 stellt hier eine erfreuli- 
che Ausnahme dar. Für 16- und 
32-Bitter existieren aber umfangrei- 
chere Versionen. 


Ada - 
gekrönter Adel 


Ada ist heute als Krönung bei der Ent- 
wicklung modularer Programmierspra- 
chen anzusehen. Die Sprache wurde 
erst in jüngster Zeit im Auftrag des welt- 
weit größten Softwaresponsors ent- 
wickelt, dem Pentagon. Der finanzielle 
und organisatorische Aufwand dafür 
war entsprechend riesig. Benannt ist 
die Sprache nach der jungen Gräfin Ada 
Byron, die um 1830 für Babbages 
(siehe oben) Rechenmaschinen ein 





nahezu komplettes Programm zur 
Berechnung der Bernoullischen Zahlen 
schrieb. 

Der Aufwand, der um Ada getrieben 
wurde, erklärt sich mit einer Kalkulation 
des US-Verteidigungsministeriums. 
Danach können zwischen 1983 und 
1999 etwa 24 Milliarden Dollar (!) ein- 
gespart werden, wenn eine einzige uni- 
verselle Programmiersprache die bis- 
herigen 450 (!!) Programmiersprachen 
ersetzen könnte. Ada ist ähnlich PL/1 
sehr umfangreich. Es wäre daher 
zwecklos, auf einzelne Sprachele- 
mente einzugehen. Deshalb hier nur die 
grundsätzlichen Sprachkonzepte von 
Ada: 


- Das Modulkonzept von Ada ist 
äußerst umfangreich. Es stehen sowohl 
datenorientierte als auch funktions- 
orientierte Module zur Verfügung. 
Innerhalb der datenorientierten Pakete 
lassen sich fast beliebige Datentypen 
und Datenstrukturen realisieren. 

- Ähnlich wie in Pascal können Daten- 
strukturen geschachtelt werden. 
Umfangreichere Prozedur- und Funk- 
tionskörper werden ausgelagert, zum 
Beispiel um die Lesbarkeit der Pro- 
gramme zu erhöhen. 

- Sämtliche Kontrollstrukturen, von 
UNTIL bis hin zu CYCLE-Schleifen ste- 
hen zur Verfügung. Ferner sind alle line- 
aren und strukturierten Datentypen 
implementiert. 

- Ein automatischer Textformatierer 
(Pretty-Printer) wertet Schachtelungs- 
strukturen aus und sorgt für ein über- 
sichtliches Layout des Programmtex- 
tes. 

- Neben Parallelverarbeitung (Multi- 
tasking) gehören Konzepte wie die 
Parallel- und Ausnahmebehandlung zu 
den bemerkenswerten Fähigkeiten, auf 
deren Erklärung hier wegen der kom- 
plexen Zusammenhänge verzichtet 
wird. 

Im großen und ganzen wurden die 
gesetzten Ziele bei der Entwicklung 
von Adanach dem heutigen Erkenntnis- 
stand optimal erreicht. Die zu Anfang 
unter den Qualitätsaspekten genann- 
ten Stichworte wie Vollständigkeit, 
Zuverlässigkeit, Korrektheit, Übertrag- 
barkeit, Wartung und Fehlerbehandlung 
wurden weitestgehend realisiert. Die 
Einfachheit der Sprache ist als ausrei- 
chend zu betrachten, wenn auch die 
vollständige Einarbeitung in dieses 
System Jahre beansprucht. Ada ist für 
Mikrocomputer zur Zeit nur unter MS- 
DOS verfügbar und auch hier nur in 
einer abgespeckten Version. 

Wir sind nun mit dem Aufstieg im 
»modernen Turm zu Babel« fast an der 
Spitze angelangt. Nach unten blickend 
können wir die gebräuchlichsten Spra- 
chen beurteilen. 

(Matthias Rosin/ev) 


15 








Wenn man Forth lernen möchte, 
braucht man dazu zweierlei: ein 
Forth-System und ein Buch zum 
Lernen. Der folgende Artikel soll 
Ihnen den Einstieg in Forth 
lediglich erleichtern; wir sagen 
Ihnen, welche Literatur geeignet 
ist und worauf Sie bei einem 
Forth-Compiler für Ihr Compu- 
tersystem achten müssen. 


icher haben Sie schon den einen 
oder anderen Artikel über Forth 
gelesen. Dort war häufig die 
Rede von der »umgekehrt polnischen 
Notation«, vom Stackkonzept und von 
Worten wie SWAP. DUP und ROT, die 
dem Uneingeweihten allenfalls ein 
Stirnrunzeln entlocken. Über das 


Wesen der Sprache sagen sie aber 
nichts aus. Warum sich Forth in letzter 
Zeit dennoch zum »Geheimtip« unter 
entwickelte, hat 


Programmierern 








Forth — die etwas andere 
Programmiersprache 





andere Gründe. Forthist sicher nicht die 
»eierlegende Wollmilchsau«, wie dies 
von manch anderen Programmierspra- 
chen behauptet wird, bietet aber einige 
Vorteile, die eine genauere Betrachtung 
rechtfertigen. Eine Warnung vorweg: 
Forth ist in vieler Hinsicht ungewöhnlich 
und sicher nicht jedermanns Sache. 
Wenn Sie Angst vor den Innereien Ihres 
Computers oder Systemabstürzen 
haben, dann ist Forth nichts für Sie. 
Arbeiten Sie jedoch gern maschinen- 
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nah, um die letzten Feinheiten aus 
Ihrem Computer herauszuholen, und 
können Sie mit Bits und Bytes etwas 
umgehen, dann lesen Sie weiter. 

Allen höheren Programmiersprachen 
ist eins gemeinsam. Damit der Prozes- 
sor, das Herzstück eines jeden Compu- 
ters, versteht, was der Programmierer 
will, muß der Programmtext übersetzt 
werden. Letztlich kann der Computer 
immer nur seinen Maschinencode ver- 
stehen. 

Programmiersprachen lassen sich in 
zwei Kategorien einteilen. Da sind auf 
der einen Seite die Interpretersprachen 
wie Basic, Logo und Comal. Bei diesen 
Sprachen wird ein Programm während 
der Ausführung übersetzt (interpre- 
tiert). Dieses Verfahren hat den Vorteil 
der Interaktion, das heißt, man kann die 
Wirkung eines Befehls oder einer 
Befehlsfolge sofort sehen. Programme 
entwickeln geht also verhältnismäßig 
schnell, und auch die unvermeidliche 
Fehlersuche ist kein Problem. Man läßt 
einfach sein Programm Schritt für 
Schritt ablaufen, um zu sehen, wann 
und wo der Fehler auftritt. Nachteil die- 
ser Methode ist jedoch die geringe 
Ablaufgeschwindigkeit der Programme. 
Schließlich beschäftigt sich der Com- 
puter den größten Teil seiner Rechen- 
zeit mit der Übersetzung und nicht mit 
der Bearbeitung des eigentlichen Pro- 
gramms. Jeder, der einmal ein längeres 
Basic-Programm mit einem entspre- 
chenden Programm in Maschinencode 
verglichen hat, wird dies bestätigen. 

Aus diesem Grund schlägt man bei 
den Compilersprachen wie Pascal, C 
oder Modula einen anderen Weg ein. 
Der Programmtext wird ein einziges Mal 
in Maschinencode übersetzt (compi- 
liert) und kann dann immer wieder aus- 
geführt werden. Das klingt gut, hat aber 
natürlich ebenfalls seine Tücken. So ist 
es ein langer Weg vom Quelltext bis 
zum lauffähigen Programm. Typisch für 
solche Sprachen ist der Dreischritt Edi- 
tor, Compiler, Linker, der sich immer 
wiederholt und viel Zeit kostet. Ein Pro- 
grammfehler wird ja fast immer erst 
ganz am Schluß erkannt, wenn der 
Computer sang- und klanglos abstürzt. 

Forth verbindet die Vorteile von 
Interpreter-- und Compilersprachen, 
also hohe Ablaufgeschwindigkeit und 
interaktive Programmentwicklung. In 
Forth können Sie die Wirkung jedes 
Befehls wie in Basic unmittelbar über- 
prüfen, die Programme laufen jedoch 
zirka zehnmal schneller ab. 

Zudem steht es offen, zeitkritische 
Programmteile mit dem fast immer vor- 
handenen Assembler unmittelbar in 
Maschinencode zu schreiben. Solche 
Routinen sind in der Regel sehr kurz. 
Der Forth-Interpreter/Compiler behan- 
delt sie aber genauso wie alle anderen 


24 


Forth-Befehle auch; Sie stoßen also auf 
keine SYS- oder CALL-Sequenzen mit 
irgendwelchen unverständlichen Zah- 
len dahinter. 

Forth ist vollkommen strukturiert. Ein 
Programm besteht aus einer Reihe von 
Befehlen, in Forth Wörter genannt, die 
jeweils einzeln entwickelt und getestet 
werden. Jeder so neu erzeugte Befehl 
wird durch seine Definition dem 
Sprachkern hinzugefügt und steht 
damit zur Bildung weiterer Wörter 
bereit. Für Verknüpfungen stehen die 
von Pascal bekannten Kontrollstruktu- 
ren wie IF..ELSE..THEN, BEGIN.\WHILE 
.REPEAT, DO..LOOP und so weiter zur 
Verfügung. GOTO und GOSUB fehlen 
ebenso wie Zeilennummern. Die Wörter 
werden einfach durch Nennung ihres - 
hoffentlich sinnvollen - Namens aufge- 
rufen. Das Ergebnis ist ein übersichtli- 
cher, wartungsfreundlicher Code. Das 
lernt man spätestens dann zu schätzen, 
wenn man sich nach einigen Wochen 
oder Monaten ein Programm zur Über- 
arbeitung wieder vornimmt. Haben Sie 
das einmal mit einem schlecht doku- 
mentierten Assemblerprogramm ver- 
sucht, wissen Sie das zu Schätzen. 


Fortn macht nahezu alles möglich, 
insbesondere den Zugriff auf die 
gesamte Hardware. Viele Sprachen 
schieben da einen Riegel vor, entschei- 
den für den Programmierer, was erlaubt 
ist und was nicht. Forth ist hier genauso 
wie Assembler und bietet übrigens 
auch die gleichen Fehlerquellen. So 
sind Ein-Ausgabe-Bausteine unter 
Forth ebenso leicht zu programmieren, 
wie man sich eigene Speicherverwal- 
tungen abseits von gewöhnlichen 
Variablen oder Arrays zusammenbauen 
kann. Ja, sogar der Forth-Compiler ist 
offen für Veränderungen. Dieser unein- 
geschränkte Zugang verlangt natürlich 
viel Disziplin beim Programmieren. 
Allerdings: Mehr als abstürzen kann Ihr 
Computer auch unter Forth nicht. 

Forth-Programme sind kurz, in der 
Regel sogar kürzer als entsprechende 
Assembler-Programme. Dasliegt an der 
Arbeitsweise des Forth-Compilers. Im 
Speicher steht bei jedem Wort nur eine 
Liste mit Adressen der Worte, aus 
denen es sich zusammensetzt. Der 
innerste Kern des Forth-Interpreters - 
übrigens eine Maschinencodesequenz 
von zirka 10 Byte - sorgt für die Abar- 
beitung dieser Liste. Das ist die Grund- 
idee. Natürlich gibt es eine Reihe von 
Feinheiten. So kommt es, daß »nor- 
male« Forth-Systeme mit 300 bis 400 
Befehlen Grundwortschatz nur zirka 10 
bis 20 KByte Speicher benötigen. 














Nachdem wir Ihnen nun den Mund 
hoffentlich ausreichend wäßrig 
gemacht haben, wenden wir uns wie- 
der der eingangs gestellten Frage zu. 
Neben einem Computer braucht man, 
so hieß es dort, ein Forth-System und 
Literatur. Die Frage nach der Literatur 
läßt sich verhältnismäßig leicht beant- 
worten. Es gibt ein für Anfänger wie 
Fortgeschrittene gleichermaßen geeig- 
netes Buch. Es heißt »Starting Forth« 
von Leo Brodie. Eine deutsche Über- 
setzung ist unter dem Namen »Pro- 
grammieren in Forth« im Hanser-Verlag 
erschienen. Das Buch entwickelte sich 
zu So etwas wie einem Standardwerk, 
weil es locker und doch exakt geschrie- 
ben ist. Wer gut Englisch kann, dem sei 
auf jeden Fall die Originalausgabe emp- 
fohlen, weil sich in der deutschen Über- 
setzung, vor allem bei den Programm- 
beispielen, einige Fehler eingeschli- 
chen haben. Man sollte es allerdings 
nicht abends im Bett kurz vor dem Ein- 
schlafen lesen, sondern neben den 
Computer legen und damit arbeiten. 
Auch Forth lernt man, indem man in 
Fortn programmiert und nicht beim 
Lesen. 

Womit wir bei der Frage eines Forth- 
Systems wären. Hier läßt sich natürlich 
keine allgemeingültige Lösung ange- 
ben, da es für jeden Computer ver- 
schiedene Versionen gibt. Vor einiger 
Zeit veröffentlichte die Zeitschrift 
»Forth-Dimensions« (von der amerikani- 
schen »Forth Interest Group« herausge- 
geben), eine Art Checkliste für Forth- 
Systeme. Wir bringen zu Ihrer Orientie- 
rungeine deutsche Übersetzung, damit 
Sie wissen, worauf man achten sollte. 
Maximal sind dreizehn Punkte zu verge- 
ben. Systeme mit weniger als sieben 
Punkten dürften Ihnen die Arbeit mehr 
erschweren als erleichtern, von ihnen 
sollten Sie lieber die Finger lassen. 

Die Größe eines Systems entschei- 
det über den Umfang, also die Anzahl 
der Befehle, die im Grundwortschatz 
enthalten sind. Sicher ist die reine 
Länge in KByte kein ausreichendes 
Merkmal, wichtiger ist die Befehlsan- 
zahl. Sie gibt aber doch einigen Auf- 
schluß, ob es sich um eine reine Stan- 
dardimplementation handelt, die mit 
zirka 10 KByte auskommt, oder ob 
etwas Komfort geboten wird. Auch läßt 
sich aus der Länge in etwa beurteilen, 
wie viele der Grundworte in Maschinen- 
code geschrieben sind. Zwar etwas län- 
ger, wirken sie sich aber positiv auf die 
Laufzeit des Systems aus. Trotzdem: 
Seien Sie vorsichtig, wenn Ihnen 
Systeme mit 30 KByte und mehr Länge 
angeboten werden. Diese enthalten 
normalerweise viel überflüssigen Bal- 
last. 

Viel wichtiger ist dagegen der näch- 
ste Punkt. Viele Systeme enthalten 
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Zusätze in Form von Quelltexten. Das 
hat zwei Vorteile. Zum einen muß man 
nur die wirklich benötigten Teile laden, 
zum anderen kann man die Quelltexte 
seinen Wünschen anpassen und verän- 
dern. Nebenbei bemerkt lernt man 
bekanntlich aus Beispielen am besten: 
Wem solche Beispiele gleich mitgelie- 
fert werden, der hat es einfacher. 
Zusätze enthalten Programmierhilfen 
wie Decompiler, Einzelschrittracer, 
Assembler und so weiter oder auch fer- 
tige Programme. 


Wie steigt man ein? 


Die nächsten beiden Punkte bezie- 
hen sich auf den Editor. Wir halten dies 
für eins der wichtigsten Hilfsmittel jeder 
Programmiersprache. Schließlich arbei- 
ten Sie beim Programmieren fast aus- 
schließlich mit dem Editor. Sein Komfort 
entscheidet über die Bedienbarkeit 
eines Systems. Entspricht der Editor 
dem in Starting Forth beschriebenen, 
hat das den Vorteil, daß Sie die Bei- 
spiele aus dem Buch leichter bearbei- 
ten können. Ein guter Editor sollte bild- 
schirmorientiert arbeiten, das heißt, 
man kann mit dem Cursor auf dem Bild- 
schirm sumherwandern« und ÄAnderun- 
gen sofort sehen. Der Starting-Forth- 
Editor verfügt über diese Eigenschaf- 
ten von Haus ausnicht, es gibt aber ent- 
sprechend erweiterte Versionen. Ein 
zeilenorientierter Editor ist nur zu emp- 
fehlen, wenn man noch nie mit etwas 
anderem gearbeitet hat. 

Zu den nächsten beiden Punkten: All- 
jährlich treffen sich Forth-Program- 
mierer, die diese Sprache professionell 
nutzen, in Amerika, um über Verände- 
rungen oder Erweiterungen des Forth- 
Sprachkerns zu beraten. Dabei werden 
die Erfahrungen, die sich aus der prakti- 
schen Arbeit mit Forth ergaben, aufge- 
arbeitet und gleichzeitig neue Ansätze 
diskutiert. Wenn Einigkeit über eine not- 
wendige Änderung herrscht, wird ein 
neuer Standard festgelegt. Der letzte 
Standard wurde 1983 beschlossen. 
Davor gab es einen im Jahr 1979. Zwar 
erscheinen die Änderungen - vor allem 
dem Anfänger - häufig spitzfindig. Sie 
sorgen jedoch für eine stetige Weiter- 
entwicklung der Sprache und verhin- 
dern das Auseinanderfallen in verschie- 
dene Dialekte, wie es zum Beispiel bei 
Basic geschehen ist. Ein Programm, 
das nur Standard-Definitionen enthält, 
hat den unschätzbaren Vorteil, daß es 
unabhängig vom verwendeten Compu- 
ter läuft. So lassen sich Programme für 
die verschiedensten Computer unter- 
einander austauschen, jeder kann von 
Erfahrungen anderer profitieren. Die 
folgenden Punkte beziehen sich auf die 
Beschreibung und Unterstützung Ihres 
Systems. Eine Beschreibung ist uner- 
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läßlich, denn jedes Forth-System ver- 
fügt über eine Reihe von systemspezifi- 
schen Erweiterungen. Der Standard 
legt nur zirka 150 Worte fest, ein übli- 
ches Forth-System enthält aber 300 bis 
400 Worte. Darüber hinaus sind häufig 
Besonderheiten und Zusätze einge- 
baut, die man natürlich nur mit einer ver- 
nünftigen Beschreibung ausnutzen 
kann. Diese sollte auch Informationen 
darüber enthalten, wie der Compiler 
arbeitet, welchen Speicher das System 
benutzt und so weiter. Je mehr Sie über 
Ihr Forth-System wissen, desto besser, 
auch wenn Sie mit den Informationen 
zunächst nicht viel anfangen können. 
Von einem guten Händler können Sie 
auch erwarten, daß er auf Ihre Fragen 
und Probleme eingeht. 

Die letzten Punkte der FIG-Check- 
liste behandeln spezielle Erweiterun- 
gen. Ein Assembler sollte zur Grund- 
ausstattung jedes Systems gehören; 
ein Fließkommapaket wird man dage- 
gen nur selten brauchen. Forth arbeitet 
aus Geschwindigkeitsgründen fast 
ausschließlich mit Integerarithmetik. 
Sogar trigonometrische Funktionen, 
wie man sie für grafische Anwendun- 
gen häufig braucht, lassen sich ohne 
Fließkomma programmieren. Zugriff auf 
ein File-System sollte möglich sein, weil 
es sonst schwierig wird, von Forth aus 
auf Files einer Textverarbeitung oder 
einer Tabellenkalkulation zuzugreifen. 
Forth selbst arbeitet normalerweise 
direkt auf Diskette, mit physikalischem 
Zugriff ohne File-System. 


Wo bekommt man 
ein Forth-System? 


Die verschiedensten Firmen bieten 
Forthan, zum Teilzu horrenden Preisen. 
Dabei muß der Preis kein Qualitäts- 
merkmal sein, im Gegenteil: Einige der 
besten Forth-Compiler sahen ihre Auto- 
ren als »public domain« (also der Allge- 
meinheit kostenlos zugänglich), was 
manche Vertreiber nicht davon abhält, 
sich die Anpassung auf ein spezielles 
Computersystem teuer bezahlen zu las- 
sen. Den geringen Umsatz versucht 
man dann über hohe Preise auszuglei- 
chen. 

Es gibt in Deutschland einen »Ab- 
leger« der »Forth Interest Group«, die 
»Forth Gesellschaft eV.« in Hamburg. 
Sie setzt sich als Aufgabe die Verbrei- 
tung der Programmiersprache Forth. 
Die Gruppe arbeitet nicht kommerziell, 
sondern finanziert sich aus Beiträgen 
und Spenden. Dort kann man sich über 
Forth-Systeme für die verschiedenen 
Computer informieren, auch werden 
Bezugsquellen genannt. Es existiert 
auch eine Sammlung der verschieden- 
sten Artikel über Forth, die man sich 








gegen Unkostenerstattung kopieren 
lassen kann. Für Mitglieder erscheint 
eine Zeitung namens »Vierte Dimen- 
sion«, die zweimonatlich erscheint. Wer 
sich an die Forth-Gesellschaft wenden 
möchte, kann dies unter folgender 
Adresse tun: 

Forth-Gesellschaft eV. 

Schanzenstr. 27 

2000 Hamburg 6 

Zum Abschluß noch ein Bonbon: Für 
den Commodore 64 und den Atari ST 
gibt es das »volksFORTH-83«, ein 
Forth-System, das von Mitgliedern der 
Forth-Gesellschaft geschrieben wurde 
und ebenfalls »public domain« ist. Es 
handelt sich um eins der besten Forth- 
Systeme, die es gegenwärtig gibt: Es 
entspricht vollständig dem 83rer- 
Standard, enthält Fullscreen-Editor, 
Assembler und eine Fülle von Tools, 
angefangen vom Decompiler bis hin zu 
einem Grafik-Paket. Das System ist 
multi-tasking-fähig, das heißt mehrere 
Programme können gleichzeitig ablau- 
fen. Der Quelltext ist einschließlich des 
System-Quelltextes verfügbar und das 
System frei kopierbar. Die Weitergabe 
ist sogar ausdrücklich erwünscht. Wen 
es interessiert, kann es auch bei der 
Forth-Gesellschaft zu einem Selbstko- 
stenpreis von 45 bis 65 Mark kaufen; 
man erhält dann - je nach Computersy- 
stem - mehrere Disketten mit sämtli- 
chen Quelltexten sowie ein 200-sei- 
tiges Handbuch. Derzeit sind Versionen 
für Z80-, 8080- und 8068-Prozesso- 
ren in Arbeit. Nach der FIG-Checkliste 
erhält »volksForth-83« 12 von 13 mögli- 
chen Punkten. 

Ebenfalls erwähnen wollen wir das 
F83 von Henry Laxen und Michael 
Perry. Auch hierbei handelt es sich um 
ein »public domain«-System nach dem 
83'er-Standard. Es sind auch sämtliche 
Quelltexte zum System und allen Erwei- 
terungen zu erhalten. F83 gibt es für 
8080-, 8086- und 68000-Prozesso- 
ren. Bei der Forth-Gesellschaft erhalten 
Sie auf jeden Fall eine Version für den 
IBM-PC und kompatible Rechner. Zum 
F83 liegt keine Dokumentation vor. 
Statt dessen enthält die Version für 
jeden Quelltext Kommentarscreens. 
Auch dieses System erhält laut Checkli- 
ste 12 Punkte. 

Es steht nun nichts mehr im Wege, 
eigene Erfahrungen zu sammeln. 
Beschaffen Sie sich Starting Forth und 
ein Forth-System, und setzen Sie sich 
eine Woche oder sagen wir bis zum 
dreißigsten Systemabsturz an Ihren 
Computer. Entweder werfen Sie dann, 
dem Wahnsinn nahe, alles in die Ecke, 
oder aber die Faszination dieser Spra- 
che hat Sie gepackt und läßt Sie so 
schnell nicht mehr los. 


(Dietrich Weineck/hg) 
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in der vierten Dimension 


Eine Programmiersprache, die 
sich in der letzten Zeit ständig 
steigender Beliebheit erfreut, 
ist Forth. Zu Recht, denn Forth 
ist eine äußerst leistungsfähige 
Sprache mit einem ungewöhnli- 
chen Konzept. Schwer zu lernen 
ist sie nicht. 


eit es Computer gibt, ist das zen- 

trale Problem die Kommunika- 

tionsschnittstelle Mensch/ Com- 
puter - oder anders formuliert, wie sage 
ich meinem Computer, was er tun soll? 
Während in der »grauen Vorge- 
schichte«e der EDV noch bitweise pro- 
grammiert werden mußte, erwies sich 
dieses Verfahren im Laufe der Zeit als 
viel zu umständlich. Es entstanden 
höhere Programmiersprachen, die sich 
einer bestimmten Anzahl von Befehls- 
worten bedienen. Meist sind diese an 
die menschliche Sprache angelehnt. 
Zu solchen höheren Programmierspra- 
chen zählen beispielsweise Fortran, 
Basic, Pascal, C oder Lisp, um nur 
einige zu nennen. 

Betrachtet man sich die Entwicklung 
in der Computertechnik, so stellt man 
fest, daß sich, seitdem das erste Röh- 
rengerät in Betrieb ging, bis zum heuti- 
gen Tage die Hardware rasant weiter- 
entwickelt hat. Anders die Software. 
Hier dominieren noch immer Sprachen 
wie Fortran und Basic, die in ihren 
Ursprüngen in die fünfziger Jahre 
zurückreichen. 

Daß Programmiersprachen für Com- 
puter, die Sie heute nur noch im 
Museum bewundern können, nicht 
immer den heutigen Ansprüchen genü- 
gen, ist leicht einzusehen. Vor allem 
Basic, das sich mittlerweile zum Stan- 
dard für kleine und mittlere Systeme 
entwickelt hat, hinkt den Ansprüchen 
der meisten Programmentwickler weit 
hinterher. Zwar ist es leicht zu erlernen 
und besitzt eine unkomplizierte 
Befehlssyntax, aber strukturierte Pro- 
gramme, lokale Variablen und ähnliches 
sind für die meisten Dialekte tabu. 

Was tut also der (Basic-)frustrierte 
Programmierer? Er sucht sich eine 
neue Sprache, die seinen Ansprüchen 
besser gerecht wird. Und da beginnt 
das Dilemma. Welche der vielen Kon- 
kurrenten kommt für ihn in Frage? Hier 
ist es hilfreich, sich zu überlegen, was 


die »neue Traumsprache« alles leisten 

soll. Folgende Punkte sind dabei für 

jeden Programmierer wichtig. Die Spra- 

che soll: 

- Schnell sein, 

- strukturiertes Programmieren ermög- 
lichen, 

- auf andere Computertypen übertrag- 
bar sein, 

- die Stärken des eigenen Geräts 
unterstützen, 

- erweiterbar sein, 

- möglichst wenig des kostbaren RAM- 

Speichers belegen, 

- relativ leicht zu erlernen und zu ver- 
stehen sein. 

Wenn das auch Ihre Vorstellungen 
einer nahezu idealen Programmierspra- 
che sind, dann brauchen Sie nicht län- 
ger zu Suchen. Denn solch eine Traum- 
sprache gibt es schon - Forth. 

Zwar ist auch Forth nicht die Program- 
miersprache schlechthin, doch weist 
sie zumindest die oben aufgeführten 
Vorteile (und noch einige mehr) auf. 
Was es damit tatsächlich auf sich hat, 
darüber klären Sie die nächsten Seiten 
auf. Sie ersetzen zwar kein Handbuch 
von Forth (es können auf so wenig Sei- 
ten niemals alle Anweisungen erklärt 
werden), aber wir wollen versuchen, 
Ihnen ein Gefühl für den typischen Cha- 
rakter von Forth zu geben. Vielleicht 
kommen Sie auf den Geschmack, sich 
mit dieser faszinierenden Sprache 
näher zu befassen. 


Forth, Sprache für 


Forth wurde Ende der sechziger 
Jahre entwickelt und ursprünglich zur 
Steuerung und Auswertung der Meßda- 
ten einer Sternwarte eingesetzt. Schon 
damals stand die Zukunft von Forth im 
wahrsten Sinne des Wortes in den Ster- 
nen, denn die amerikanische Weltraum- 
behörde NASA wählte Forth als 
Sprache für zukünftige Satellitenpro- 
gramme. Doch bevor es dazu kommen 
sollte, blieb es bis Ende der siebziger 
Jahre sehr ruhig um diese Sprache. 
1977 gründete eine nichtkommerzielle 
Gruppe von Programmierern die »Forth 
Interest Group« (FIG) und machte Forth 
damit einer breiteren Öffentlichkeit 
zugänglich. Es entstand als Standard 


FIG-Forth, aus demsich zwei Jahre spä- 
ter der Forth 79-Standard entwickelte. 
Beide Versionen sind heute im Heim- 
und Personal Computerbereich verbrei- 
tet. Der Unterschied dieser Dialekte ist 
nur gering, so daß sich FIG-Forth- 
Programme leicht in den 79-Standard 
umsetzen lassen - und umgekehrt. 

In unserer Einführung wollen wir im 
wesentlichen das ältere FIG-Forth 
benutzen. Etwaige Abweichungen zum 
79-Standard bleiben aber auch nicht 
unerwähnt. 

Mittlerweile wird für fast jedes Com- 
putersystem eine Forth-Version ange- 
boten. Da die Sprache kaum Speicher- 
platz beansprucht, ist sie ideal für klei- 
nere Systeme geeignet. Im allgemeinen 
benötigt Forth nicht mehr als 10 KByte 
RAM-Bereich. Je nachdem, welche 
Extras zusätzlich implementiert sind, 
kann sich dieser Bereich natürlich erhö- 
hen. 

Forth kommt im Prinzip ohne Massen- 
speicher aus, weshalb sich ein Disket- 
tenlaufwerk erübrigt. Da beim Heim- 
computer die Programme nicht im ROM 
vorliegen, braucht man aber unbedingt 
einen Kassettenrecorder. Dennoch, 
wie bei allen Sprachen ist auch unter 
Forth der Gebrauch eines Disketten- 
laufwerks angenehmer als ein Datenre- 
corder. Auch kommen einige Stärken 
von Forth nur mit einem Laufwerk zum 
Tragen. 

Nachdem Sie Ihre Forth-Version gela- 
den und gestartet haben, erscheint, 
zusammen mit einer Mitteilung über die 
Herkunft des Systems, der gleiche Cur- 
sor, den Sie sicher schon von Basic her 
bestens kennen. 

Zwei verschiedene Wege gibt es, um 
sich mit der neuen Sprache vertraut zu 
machen. Entweder Sie starten einen 
»Irockenkurs« und studieren das Hand- 
buch in allen Einzelheiten, oder aber Sie 
legen alle Hemmungen ab, geben 
irgendetwas ein und warten, was der 
Computer machen wird. Entscheiden 
Sie sich für die zweite Art, so werden 
Sie sehr oft eine nüchterne Fehlermel- 
dung auf dem Bildschirm vorfinden. 
Diese besteht entweder aus einem 
Kommentar wie zum Beispiel »CANT 
FIND« oder aus einer Ziffer, die die Feh- 
lerart anzeigt. Manchmal wird der Com- 
puter aber auch mit einem lapidaren 
»OK« antworten. Immer dann haben Sie 
eine Forth-Anweisung richtig benutzt. 

Für den Fall, daß Sie aber den Wort- 
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schatz ohne langes Ausprobieren ken- 
nenlernen wollen, ist in fast jedem 
Forth-Compiler eine Anweisung vorge- 
sehen, die alle Befehle auf dem Bild- 
schirm ausgibt. »VLIST« oder »WORDS« 
sind zwei häufig gebrauchte Kennworte 
für diesen Befehl. Dieses Wörterbuch 
zeigt sämtliche Anweisungen, die Ihr 
Compiler versteht. Ganz egal, ob es 
sich um vor- oder selbstdefinierte 
Befehle handelt. 


Erste 
Kontaldauimenmme 


Unter Forth müssen alle Eingaben mit 
der RETURN- (oder ENTER-) Taste 
abgeschlossen werden. Die eingege- 
benen Worte lassen sich in drei Grup- 
pen unterscheiden - in »Nonsens«e- 
Worte, die der Compiler mit einer Feh- 
lermeldung quittiert, in Anweisungen 
oder in Zahlen. Denn auch wenn Sie nur 
eine Zahl eingeben, reagiert der Compi- 
ler darauf mit »OK«, das heißt, er akzep- 
tiert den Befehl ohne Probleme. Was ist 
nun mit dieser Zahl geschehen? 

Bei nahezu allen Operationen in Forth 
spielt der Stack eine zentrale Rolle. Der 
Stack (zu deutsch Stapelspeicher) ist 
nichts anders als ein kleiner Speicher- 
bereich, der nach einem besonderen 
Prinzip verwaltet wird. Jede Zahlenein- 
gabe von der Tastatur, die mit RETURN 
abschließt, landet zuerst einmal im »lop 
Of Stack« (TOS), also in der obersten 
Speicherzelle (eine Speicherzelle ist 
ein 16-Bit-Register) des Stacks. 

Jede neu hinzukommende Zahlen- 
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- Forth wurde Ende der sechziger 
Jahre in den USA entwickelt. 

- Forth ist eine Compilersprache, mit 
der Sie aber auch Interaktiv arbeiten 
können. 

- Forth ist sehr schnell. Vergleich- 
bare Programme brauchen in Basic 
bis zu 20mal mehr Zeit als in Forth. 
- Der Befehlssatz in Forth besteht 
aus 200 bis 300 Wörtern. Ein Wort 
laßt sich mit einem Unterprogramm 
in Basic oder besser mit einer Proze- 
dur in Pascal vergleichen. Der 
Benutzer kann diesen Wortschatz 
um eigene Definitionen erweitern. 
Diese neuen Wörter sind im 
Gebrauch mit den Standard-Forth- 
Wörtern vollkommen identisch. 

- Bei Forth-Wörtern handelt es sich 
entweder um Secondaries, die wie- 
derum aus Forth-Wörtern aufgebaut 

















Bild 2. Die Ausgabe auf den Blidschirm erfolgt immer vom TOS 


eingabe wird ebenfalls dort abgelegt. 
Alle bereits vorhandenen Zahlen rut- 
schen um eine Position nach unten. Bei 
der Ausgabe vom Stack kommt als 
erstes die Zahl im TOS an die Reihe. Da 
es sich hierbei immer um die zuletzt ein- 
gegebene Zahl handelt, wird das Ganze 
als »Zuletzt rein - zuerst raus«-Prinzip 
bezeichnet. Im Fachenglisch heißt das 
dann »Last In - First Out«-Prinzip (kurz 
LIFO). 

Alle Operationen, die den Stack be- 
einflussen, arbeiten nach diesem Ver- 
fahren. Deswegen sollten Sie sich 


sind, oder um Primitives, welche in 
Maschinencode definiert sind. 

- Forthrechnet nur mit Integerzahlen 
von 16 oder 32 Bit Breite. 

- Forth belegt in der Regel zwischen 
8 und 12 KByte Speicherplatz 
(hängt von dem Umfang des Wort- 
schatzes ab). 

- Forth verwaltet den Diskettenspei- 
cher virtuell, das heißt RAM- und 
Diskettenspeicher sind formell 
gleichwertig. 

- Forth ist weitgehend standardi- 
siert, das heißt alle für Heim- und 
Personal Computer angebotenen 
Versionen leiten sich vom FIG-Forth 
ab. FIG-Forth stammt von der Forth 
Interest Group, einer nichtkommer- 
ziellen Vereinigung von Programmie- 
rer. 

- Die Rechenoperationen werden in 
Forth nach den Regeln der Umge- 
kehrten Polnischen Notation (UPN) 
durchgeführt. 
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damit gut vertraut machen. Bereitet 
Ihnen die Arbeitsweise noch Schwierig- 
keiten, dann hilft Ihnen vielleicht folgen- 
der Vergleich weiter. 

Stellen Sie sich einen Schreibtisch 
vor, auf dem ein Stoß Papierliegt. Legen 
Sie ein Blatt auf dem Stoß ab, so landet 
es auf der obersten Stelle. Das nächste 
Blatt liegt darüber und an oberster Posi- 
tion befindet sich damit immer das Blatt, 
das zuletzt abgelegt wurde. Wollen Sie 
nun den Papierstoß abarbeiten, dann 
nehmen Sie zuerst das oberste Blatt 
weg. Und dieses ist das zuletzt hinge- 
legte. Das schon am längsten auf dem 
Tisch liegende Papier ist das letzte 
beim Abarbeiten. Und so funktioniert 
auch der Stack in Ihrem Computer. 

Nach soviel Theorie zurück zu Forth. 
Wir wissen nun, wie der Stack verwaltet 
wird und wollen ausprobieren, wie wir 
drei Zahlen auf den Stack legen und 
wieder herunterholen können. Wir 
geben einfach folgende Zeile ein: 

14 9 -2 

Zwischen zwei Zahlen muß immer ein 
Leerzeichen stehen und die Zeile mit 
der RETURN-Taste beendet werden. 
Der Computer quittiert die Eingabe mit 
»OK«. Was ist nun aber auf dem Stack 
passiert? Dazu betrachten wir Bild 1, 
das uns zuerst den »leeren« Stack und 
zum Schluß den »vollen« Stack zeigt. 
Zuerst wurde die 14 im TOS abgelegt, 
dann die 9 (gleichzeitig wandert die 14 
um eins nach unten) und zum Schluß 
die -2 (die andern beiden Werte wan- 
dern nach unten). 

Um diese Zahlen wieder vom Stack 
auszugeben, lernen Sie nun Ihr erstes 
Forth-Wort kennen (Befehle, bezie- 
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hungsweise Anweisungen, werden in 
Forth als Wort bezeichnet). Es handelt 
sich um einen unscheinbaren Punkt. 
Durch ».« wird die Zahl im TOS (Top Of 
Stack) auf den Bildschirm ausgegeben. 
. -2 oK 

Nach der Eingabe des Punktes und 
der RETURN-Taste reagiert der Compu- 
ter mit der Meldung »-2 OK«. Wir wollen 
im folgenden immer die Zeile so ange- 
ben, wie Sie nach der Bearbeitung aus- 
sieht. Eingeben dürfen Sie natürlich nur 
die Forth-Wörter (in diesem Falle also 
nur den Punkt). Sie können natürlich 
auch mehrere Zahlen auf einmal ausge- 
ben lassen: 
.. 914 0K 

Der nächste Punkt veranlaßt den 
Computer zu einer Fehlermeldung, da 
der Stack leer ist: 
. DO EMPTY STACK 

Bild 2 zeigt Ihnen, wie sich der Stack 
bei der Ausgabe der Zahlen verändert. 
Sie sehen dabei, daß jede Zahl, die 
durch ».« auf dem Bildschirm erscheint, 
gleichzeitig vom Stack verschwindet 
und sich alle anderen Zahlen um eine 
Position nach oben bewegen. 

Bevor wir zu unseren ersten Rechen- 
aufgaben in Forthn kommen, müssen wir 





-gibt die Zahl im TOS 
(oberste Zahl im 
Stack) aus 

-gibt die Symbole zwi- 


schen den Anfüh- 
rungszeichen als Text 
aus 

-bewirkt einen Zeilen- 
vorschub 





Tabelle. Ihre ersten Wörter In Forth 


uns noch einmal ganz genau mit der 
Syntax von Forth auseinandersetzen. 
Befehlswörter dürfen in Forth beliebig in 
einer Zeile stehen. Allerdings muß 
immer mindestens ein Leerzeichen 
zwei Anweisungen trennen. Anders als 
beispielsweise in Basic, wo es einen 
festgelegten, im Grunde nicht mehr 
erweiterbaren Befehlssatz gibt, kann 
jedermann Forth um neue Befehle 
bereichern. Da dabei jede Zeichenkom- 
bination als Wortname erlaubt ist, stel- 
len die Leerzeichen für den Textinter- 
preter die einzige Möglichkeit dar, die 
Wörter voneinander zu unterscheiden. 

Auch Texte lassen sich unter Forth 
auf den Bildschirm ausgeben. Dazu 





dient ein zweites Wort: ».”«. Ein Bei- 
spiel: 
.” OSTERHASE” OSTERHASE OK 

Wenn Sie »."OSTERHASE”« mit 
RETURN an den Computer abschik- 
ken, dann gibt er den Text »OSTER- 
HASE« zurück. Denken Sie an die rich- 
tige Verteilung der Leerzeichen, da 
sonst der Computer Sie nicht verste- 
hen kann. 

Mit solch einer Textausgabe können 
wir auch unsere Stack-Ausgabe kom- 
fortabler gestalten: 


4 OK 
GR STOSS * , 
TOS : 4 OK 


Wenn Sie die 4 und die zweite Zeile 
eingegeben haben, dann antwortet der 
Computer mit der dritten. Das neue 
Wort »sCR« bewirkt einen Zeilenvor- 
schub. Beimanchen Compilern funktio- 
niert dieser letzte Befehl nur in Wörtern. 
Wie Sie solche definieren, erfahren Sie 
später. Manchmal darf ».”...”« durch 
».(...)« ersetzt werden. Näheres finden 
Sie in Ihrem Handbuch. Die Wörter des 
ersten Teils der Einführung in Forth faßt 
die Tabelle noch einmal zusammen. 


(Peter Monadjemi/hg) 





in der umgekehrten 





Forth zeigt einige unkonventio- 
nelle Lösungswege, Computer- 
programme zu erzeugen. Beson- 
ders das Rechnen in Forth unter- 
scheidet sich von fast allen 
anderen Computersprachen. 


er Stack ist das wichtigste 
Hilfsmittel zum Rechnen in 
Forth. Dazu stehen verschie- 
dene Operatoren und Befehlswörter 
zur Verfügung. Allerdings muß man bei 
dem Jonglieren mit Zahlen in Forth 
einige spezifische Besonderheiten 
beachten: 

- Alle Operationen werden nach den 
Regeln der Umgekehrten Polnischen 
Notation (UPN) durchgeführt. 

- Forth rechnet nur mit Integerzahlen 
(ganze Zahlen). 

- Forth kennt in der Standard-Version 
nur die vier Grundrechenarten. 
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UPN ist eine Vorschrift für die Durch- 
führung von Rechenoperationen unter 
Einbeziehung eines oder mehrerer 
Stacks. Nehmen Sie als Beispiel die 
Operation »33+4=« (hier noch in der 
Basic-typischen Schreibweise). Die 
UPN-Schreibweise bereitet die Be- 
fehlszeile so auf, wie sie der Computer 
am leichtesten bearbeiten kann. Das 
bedeutet, daß zuerst die Operanden 
(Zahlen) und dann die Operatoren 
(Rechenzeichen) eingegeben werden. 
Unser Beispiel sieht dann wie folgt aus: 
334% 

Das Ergebnis befindet sich nach der 
Berechnung im Stack - und zwar im 
TOS (Top of Stack) - und kann dort wei- 
terverarbeitet werden. Der Vorteil der 
UPN gegenüber der Infix-Notation (das 
ist die Basic-übliche Eingabe von 
Berechnungen) macht sich erst bei grö- 
Beren Ausdrücken bemerkbar. Die Ein- 
gabe in Infix-Schreibweise: 
(2+7)/(4*(8-3))= 





braucht bedeutend mehr Platz als die 
UPN-Schreibweise: 
27 +483-%)/ 

Sie sehen, daß die UPN weder Klam- 
mern noch Gleichheitszeichen benö- 
tigt. Dadurch ergibt sich neben einer 
kürzeren, Speicherplatz sparenden 
Schreibweise auch ein erheblicher 
Geschwindigkeitsvorteil. Die Klammern 
erfordern vom Computer nämlich immer 
ein Vorausschauen, »wo wird diese wie- 
der geschlossen«. Bei der UPN hinge- 
gen werden bei jedem Rechenoperator 
die beiden obersten Werte im Stack mit- 
einander verknüpft und deren Ergebnis 
direkt im TOS abgelegt. Für unsere Auf- 
gabe bedeutet das, daß mit Eingabe 
des Pluszeichens die 2 und 7 addiert 
und das Ergebnis 9 in den TOS gelegt 
wird. Die Eingabe der drei Zahlen 4, 8 
und 3 bewirkt, daß die 9 an der vierten 
Stelle von oben liegt. Das Minuszei- 
chen berechnet 8 minus 3, legt die 5 in 
den TOS und zieht die beiden anderen 


2 rlein.n 
ER 
2 12 


Werte nach oben. Das Malzeichen mul- 
tipliziert die 5 mit der 4, legt das Ergeb- 
nis ab und schon steht die 9 direkt unter 
der 20. Das Divisionszeichen besorgt 
den Rest, so daß zum Schluß das 
Ergebnis der Rechnung im TOS steht. 
Die UPN ist also nicht etwa ein exolti- 
sches Rechenverfahren, sondern die 
»natürlichste« und effektivste Methode 
für einen Computer, Rechenoperatio- 
nen zu verarbeiten. 

Nun wollen wir uns aber damit befas- 
sen, wie sich der Stack verändert, wenn 
wir die Grundrechenarten bearbeiten 
lassen. Die Addition löst das Zeichen 
»t+«e aus. 

45 +0K 

Was ist nun auf dem Stack gesche- 
hen? Dazu betrachten wir uns Bild 1. Sie 
sehen, daß sich vor dem Aufruf von»+« 
die beiden zu addierenden Zahlen an 
den beiden obersten Stellen des 
Stacks befinden müssen. Nach der 
Addition wird das Ergebnis im TOS 
abgelegt. Von dort kann man es mit ».« 
leicht auf den Bildschirm ausgeben. 
.9 0K 

Die 9 zeigt an, daß das Ergebnis tat- 
sächlich im TOS gespeichert war. Die 
Subtraktion erfolgt analog: 

16 12 - . 4 0K 

Auch hier müssen sich die beiden 
Zahlen zuerst auf dem Stack befinden. 
»-« zieht die Zahlim TOS von der darun- 
terliegenden ab (siehe Bild 2) und »/« 
ruft die Division auf (Bild 3): 
20°2: 7. 10:.0K 

Bis dahin ist die Welt noch in Ord- 
nung. Doch das nächste Beispiel führt 
zu einem unerwarteten Ergebnis: 
2172.27... 310:0K 

Hier kommt das schon erwähnte Feh- 
len von Real-(Fließkomma-)zahlen voll 
zum Tragen. Aber keine Bange: Forth 
bietet verschiedene Wege, auch belie- 
big genaue Ergebnisse zu erhalten. Mit 
dem Operator »/« bekommen Sie also 
nur die Vorkommazahl. Um den ganz- 
zahligen Rest dieser Rechenoperation 
zu erhalten, gibt es unter Forth einen 
Befehl, den die meisten Basic-Dialekte 
nicht kennen. 

21 2 MOD . 1 OK 


23 4 MOD . 3 OK 
21 geteilt durch 2 gibt 10, Rest 1 und 
23 geteilt durch 4 gibt 5, Rest 3. Die 





Bild 1. So verändert sich der Stack 
bei der Addition 





ganzzahligen Restbeträge werden bei 
diesem Wort in den TOS gelegt. 

Die Multiplikation aktiviert »* «. 
20 20 * .„ 400 OK 

Allerdings muß man auch hier aufpas- 
sen, nicht den erlaubten Bereich zu ver- 
lassen. So ergibt 
200 200 * „. -25534 OK 





Das Rechnen mit 32-Bit-Zahlen erfor- 
dert spezielle Wörter. Diese erkennt 
man fast immer an einem »D« oder einer 
»2«, mit der der eigentliche Befehl 
beginnt. Damit der Textinterpreter solch 
eine doppelt lange Zahl korrekt erkennt, 
muß diese mit einem Dezimalpunkt ein- 
gegeben werden. Allerdings spielt es 


L 


| 


| 


| 


IN 


| 


| 


ein falsches Ergebnis (beziehungs- 
weise eine Fehlermeldung). Diesmal 
liegt es allerdings nicht an den Integer- 
zahlen, sondern an der Tatsache, daß 
Forth intern nur mit 16 Bit breiten Zahlen 
rechnet. Da das 16. Bit das Vorzeichen 
enthält, ist damit der Rechenbereich auf 
die Zahlen zwischen -32768 und + 
32767 beschränkt -, zugegebenerma- 
Ben ein kleiner Darstellungsbereich. 
Doch auch hier stehen dem Program- 
mierer alle Türen offen. Theoretisch 
können Sie mit beliebig breiten Zahlen 
arbeiten. Von Haus aus erlaubt Forth, 
entweder auf das Vorzeichen zu ver- 
zichten oder aber mit 32 Bit breiten 
Zahlen zu arbeiten. Beide Fälle setzen 
allerdings spezielle Wörter voraus. So 
erhalten Sie bei unserer »verunglück- 
ten« Multiplikation mit 

200 200 * U. 40000 OK 

doch noch ein vernünftiges Ergebnis. 
Mit »U.« wird die Zahl, die im TOS steht, 
als vorzeichenlose Zahl auf dem Bild- 
schirm ausgegeben. 





Bild 2. So verändert sich der Stack 
bei der Subitraktion 
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dabei keine Rolle, an welcher Stelle die- 
ser Punkt steht. 
222.222 OK 
4u,ALLA OK 
D+ OK 

Durch »D+.« werden die beiden dop- 
pelt langen Zahlen im Stack addiert und 
das Ergebnis im TOS abgelegt. Wie 
bekommen Sie nun diesen Wert auf den 
Bildschirm? Sicher nicht mit ».e. Denn 
damit erhalten Sie nur die niederwerti- 
gen 16 Bit der 32-Bit-Zahlausgegeben. 
Auch hier ist ein besonderes Ausgabe- 
wort notwendig, nämlich »D.«. 
D. 666666 OK 

Bislang wurde die Anordung der Zah- 
len auf dem Stack durch die Reihen- 
folge der Eingabe festgelegt. Sehr oft 
besteht jedoch die Notwendigkeit, 
diese Reihenfolge zu verändern, bezie- 
hungsweise einzelne Zahlen auf dem 
Stack zu kopieren. Auch dazu stehen in 
Forth eine Reihe von Befehlen zur Ver- 
fügung. Die wichtigsten erklären wir 
Ihnen im folgenden. 





Bild 3. So verändert sich der Stack 
bei der Division 
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34 DUP OK 
. . 34 34 OK 

»DUP« (Bild 4) kopiert die Zahlim TOS 
und verschiebt die darunterliegenden 
um eins nach unten. Die Operation ist 
beispielsweise immer dann notwendig, 
wenn eine Zahl im TOS zwar ausgege- 
ben, mit ihr aber noch weiter gerechnet 
werden soll. 


67 88 SWAP OK 
0088 OK 


»SWAP« (Bild 5) vertauscht die bei- 
den obersten Zahlen im Stack. Norma- 
lerweise muß ja die zuletzt eingege- 
bene Zahl als erste wieder auf dem Bild- 
schirm erscheinen (LIFO-Prinzip: Last 
in first out). Das wäre hier die 88 gewe- 
sen. »SWAP« hat nun aber die beiden 
obersten Werte im Stack vertauscht, so 
daß die 67 im TOS stand und damit auch 
zuerst ausgegeben wurde. 


12 33 65 ROT OK 
12.69. 3350K 


»ROT« läßt die obersten drei Zahlen im 
Stack einmal gegen den Uhrzeigersinn 
rotieren. Wie sich dabei der Stack ver- 
ändert, zeigt am besten Bild 6. Durch 
»ROT« wird die Zahl von der dritten 
Stelle im Stack ins TOS gebracht, wäh- 
rend die beiden darüberliegenden 
Werte um eine Position nach unten wan- 
dern. Alle Befehle (und noch einige 
mehr) finden Sie in der Tabelle noch ein- 
mal zusammengefaßt. 

Normalerweise werden alle Ein- und 
Ausgaben von Zahlen im Dezimalsy- 
stem durchgeführt. Forth ist jedoch in 
der Lage. beispielsweise die Zahlen in 
nahezu jedem System auszugeben. 
Dazu ist ledıglich der Inhalt einer eınzi- 
gen User-Variablen mit dem Namen 
»BASE« zu ändern. Bei den User- 
Variablen handelt es sıch um Speicher- 





Bild 4. »DUP« verdoppelt die Zahl im TOS 








Bild 5. »SWAP« vertauscht den Wert 
im TOS mit dem darunterliegenden 
Stackwert 
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Die Erklärung der Darstellung der Befehle finden Sie im letzten Kapitel. 


+ (ni n2bisn3) - 


addiert die beiden obersten Zahlen des Stacks 


und legt das Ergebnis im TOS ab 


- (ni n2 bis n3) 
TOS ab 
/ (ni n2 bis n3) 
TOS ab 


MOD (n1 n2 bis n3) 


subtrahiert n2 von ni und legt das Ergebnis im 
dividiert nt durch n2 und legt das Ergebnis im 


dividiert ni durch n2 und legt den ganzzahlligen 


Rest im TOS ab 


c@ (abis n) 

?(abisn)* 
schirm 

I(na usw.) 


holt ein Byte und speichert es im TOS 
wie »sc@«, aber mit Ausgabe auf dem Bild- 


speichert Zahl in der Adresse a, die im TOS 


angegeben ist 





Tabelle. Die in diesem Abschnitt neu vorgestellten Befehle und deren 


»Geschwister« 


werte, die wichtige Systemgrößen bein- 
halten. So enthält zum Beispiel »>SO« die 
Adresse des Stacks, »DP« den Beginn 
des Wörterbuches und »BASE« den 
Wert der aktuellen Zahlenbasis. 

Der Aufruf einer User-Variablen holt 
jedoch in Forth nicht den Wert, sondern 
die Speicheradresse, unter der der 
Wert zu finden ist. Um den aktuellen 
Wert von »BASE« zu erfahren, brauchen 
wir ein Wort (Anweisung) vom Typ: »Gib 
den Inhalt der Speicherzelle mit der 
Adresse addr aus«. Solch ein Wort stellt 
»C@« (manchmal auch »?«) zur Verfü- 
gung. 

BASE C . 10 OK 

Diese Anweisung bringt den aktuel- 
len Wert der User-Variablen BASE auf 
den Bildschirm. Um den Wert zu 
ändern, benötigen wir ein Wort vom 
Typ: »Lege den Wert a unter der 
Adresse addr ab«. Dieses Wort lautet 
»!«. Sowohl der Wert »a« als auch die 
Adresse »addr« müssen sich auf dem 
Stack befinden - und zwar in der richti- 
gen Reihenfolge. Nach der Eingabe 
muß die Adresse (in diesem Fall BASE) 
im TOS stehen. 

63 2 BASE ! OK 

. LIIEEI OK 

Die Zahlen 63 und 2 werden auf den 
Stack gelegt, dann die Adresse BASE 
im TOS gespeichert. Das Wort »!« 
ändert die Ausgabefunktion auf Dual- 


Bild 6. »ROT« bringt den dritthöchsten 
Wert In den TOS und schlebt die beiden 
anderen Werte um eins weiter nach unten 











zahlen. Mit ».« erscheint dann die 63 in 
dualer Form (111111) auf dem Bild- 
schirm. Da wir gerade auf Dualzahlen 
umgeschaltet haben, muß jetztauch die 
Eingabe in dualer Form erfolgen. 
9 23 ? CAN'T FIND 

Die Zahlen 9 und 23 sind keine Dual- 
zahlen und deshalb gibt der Compiler 
eine Fehlermeldung (hier »CAN’T 
FIND«) zurück. Mit 
11 BASE ! OK 
schalten wir auf die Zahlenbasis »3« um 
(11 dual ist 3 dez). Da es nun etwas 
kompliziert ist, die richtige Ziffernfolge 
für Dezimalzahlen zu finden (10 dez = 
1010 dual = 101 zur Basis 3), gibt es 
unter Forth das Wort »DECIMAL«, das 
immer wieder zum vertrauten Dezimal- 
system zurückführt. 
DECIMAL OK 

Ein kleines Beispiel zeigt eine beein- 
druckende Lösung eines Problems, das 
in vielen anderen Sprachen nur bedeu- 
tend umständlicher gelöst werden 


kann. 
: DUAL 2 BASE ! ; OK 
: DOPPEL 
20 O0 DO CR I DECIMAL . 
I DUAL . LOOP ; OK 


Wir haben zuerst das Wort »DUAL« 
zur Umschaltung auf Dualzahlen defi- 
niert und dann die Anweisung »DOP- 
PEL«. Wie man Wörter bestimmt und 
auch wie die Schleife »DO ... LOOP« 
arbeitet, finden Sie in den folgenden 
Kapiteln. Hier sollen Sie das Programm 
nur eintippen und starten. Nach dem 
Aufruf von »DOPPEL« ergibt sich auf 
dem Bildschirm folgendes Bild: 






























































Forth lemit dazu 


Einen der größten Vorteile von Forth macht der sehr einfache 
Ausbau seines Wortschatzes aus. Jede Forth-Version kann sein 
Benutzer mit neuen, selbstdefinierten Anweisungen erweitern. 





BA: als beispielsweise in 
Basic bestehen Forth-Pro- 
gramme nicht aus einer be- 
stimmten Anzahl von Programmzeilen, 
sondern aus Wörtern. Jedes diese Wör- 
ter kann weitere beinhalten, die wie- 
derum neue Wörter enthalten dürfen 
und so weiter. Dieser extrem modulare 
Aufbau führt dazu, daß das eigentliche 
Hauptprogramm letzten Endes aus nur 
einem einzigen Wort bestehen kann. 

Ein solches »Forth-Wort« läßt sich mit 
einem Unterprogramm in Basic oder 
einer Prozedur in Pascal vergleichen. 
Es gibt verschiedene Wege, sich selbst 
solch eine Anweisung zu definieren. 
Die einfachste ist die sogenannte 
»Colondefinition«, bei der das Wort wei- 
tere Wörter enthalten darf, dienach Auf- 
ruf des neuen Worts ausgeführt wer- 
den. Handelt essich bei diesen Wörtern 
wiederum um Forth-Wörter, dann 
spricht man von SECUNDARIESs. Ein 
Wort, das direkt Maschinencode- 
Routinen aufruft, bezeichnet man als 
PRIMITIVE. Die meisten Wörter des 
Grundwortschatzes von Forth sind 
SECUNDARIES. 

Wie kann man nun solch ein Wort 
selbst definieren? 

Jede Wortdefinition eines SECUN- 
DARIES leitet ein unscheinbarer Dop- 
pelpunkt »:« ein. Er bewirkt unter ande- 
rem, daß das System in den »Compile 
mode« umschaltet. Das hat zur Folge, 
daß alle nun folgenden Anweisungen 
nicht mehr direkt ausgeführt, sondern 
in das Wörterbuch eingetragen werden. 

Unter einem Wörterbuch (englisch 
Dictionary) wird in Forth ein Speicher- 
bereich verstanden, der den Wort- 
schatz der betreffenden Version bein- 
haltet. Jede neue Wortdefinition wird 
nun auch in diesem Wörterbuch ver- 
zeichnet. Das Dictionary selbst ist in 
sogenannte Vokabulare unterteilt. Zwi- 
schen verschiedenen Vokabelberei- 
chen schaltet VOKABULARY NAME 
um. 

Durch Aufruf von NAME wird der 
Vokabelbereich NAME zum CONTEXT- 
VOKABULAR, das heißt dem aktuellen 
Vokabular, in dem die Dictionary- 
Suchläufe zuerst beginnen. Normaler- 
weise ist das Standard-Vokabulary ein- 
geschaltet. Es trägt den Namen Forth. 

Wenn wir jetzt einneues Wort definie- 
ren, so wird dies in das »Haupt«- 
Wörterbuch eingetragen. Durch 
»WORDS«, »VLIST« oder einem ande- 





ren, compilerspezifischen Namen kann 
man das überprüfen, denn dieser gibt ja 
den gesamten Inhalt des Wörterbuchs 
aus. Das Wörterbuch baut sich übri- 
gens in Richtung größer werdender 
Adressen auf. Das Ende, also den 
Beginn des freien Arbeitsspeichers, 
kann man mit »HERE« ins »Top of 
Stacks« (TOS) laden. Nun aber zurück 
zu unserem Problem, selbst neue 
Worte zu definieren. 

Anders als in jeder mittelmäßigen 
Basic-Version fehlt in Forth die Quadrat- 
funktion. Sie ist aber relativ einfach zu 
definieren. Die Zahl, welche quadriert 
werden soll, muß zuerst einmal im TOS 
stehen. Dann kopieren wir sie mit DUP 
und multiplizieren beide miteinander. 
Die beiden Wörter, die wir dazu brau- 
chen, kennen Sie schon. 

4 DUP * . 16 OK 
16 DUP * . 256 OK 

Unsere Überlegung scheint zu stim- 
men, denn in beiden Fällen wurde die 
Ausgangszahl quadriert. 

Um die Quadratfunktion nun im Wör- 
terbuch zu »verewigen«, erweitern wir 
es um das Wort »QUADRAT«. Diese 
Funktion soll bei ihrem Aufruf immer 
den aktuellen Wert im TOS quadrieren 
und das Ergebnis dort auch wieder 
ablegen. 

Wie schon erwähnt, leitet ein Doppel- 
punkt die neue Wortdefinition ein. 
Danach folgt der Name der neuen Funk- 
tion, dann die Befehlsfolge. Ein Semiko- 
Ion schließt das Ganze ab. Mit 
: QUADRAT DUP *% ; OK 
haben Sie nun den Wortschatz Ihres 
Systems bereichert. Bevor Sie das 
neue Wort aufrufen, müssen Sie aber 
daran denken, daß die Zahl, die qua- 
driert werden soll, im TOS steht. 

12 QUADRAT OK 

berechnet das Quadrat von 12. Das 
Ergebnis 144 bekommen wir mit 

. 144 OK 

auf den Bildschirm. An oberster Stelle 
im Wörterbuch steht nun das neue 
Wort. Falls Ihnen die Ausgabeform zu 
nüchtern ist, dann definieren Sie doch 
mit 

: AUSGABE CR 


.” DIE QUADRATZAHL IST” . ; OK 


eine Ausgaberoutine. Nach dem Aufruf 
von AUSGABE erscheint die gerade 
aktuelle Zahl aus dem TOS. Der Bild- 
schirm sieht dann wie folgt aus: 

12 QUADRAT AUSGABE 

DIE QUADRATZAHL IST 144 





Um nun die Ausgaberoutine in dem 
Wort QUADRAT gleich mit aufzurufen, 
bedarf es einer Neudefinition dieses 
Wortes. Es gibt zwar auch Wege, beste- 
hende Routinen zu verändern, aber das 
lassen wir hier beiseite. Also geben wir 
das Wort schnell noch einmal neu ein. 
: QUADRAT DUP * AUSGABE ; 

? QUADRAT ISN'T UNIQUE 

Lassen Sie sich durch die Fehlermel- 
dung nicht irritieren. Damit teilt Ihnen 
der Compiler nur mit, daß es bereits ein 
Wort mit diesem Namen gab. Durch die 
neue Definition haben Sie es aber 
umbenannt. Rufen Sie jetzt QUADRAT 
auf, und Sie erhalten das gewünschte 
Ergebnis: 

5 QUADRAT 
DIE QUADRATZAHL IST 25 OK 

Ein erneuter Blick ins Wörterbuch 
zeigt, daß jetzt zwei Wörter mit dem 
Namen QUADRAT existieren. Um ein 
Wort zulöschen, benutzt man FOÖRGET. 
FORGET QUADRAT OK 

Damit bleibt nur noch die Frage zuklä- 
ren, welche Version der beiden Worte 
QUADRAT gelöscht wurde. Am einfach- 
sten ist das festzustellen, indem man 
QUADRAT noch einmal aufruft. 

10 QUADRAT OK 

Damit ist klar, daß FORGET die neue- 
ste Version unseres Wortes gelöscht 
hat. Doch damit nicht genug. FORGET 
löscht nicht nur das betreffende Wort, 
sondern auch alle anderen, die später 
definiert wurden. Deshalb sollte man 
FORGET nur sehr vorsichtig einsetzen. 

Der Grund für diese Wirkungsweise 
von FORGET ist leicht zu verstehen, 
wenn man Sich vorstellt, daß alle Wörter 
im Wörterbuch durch eine »KETTE«mit- 
einander verbunden sind. Trennen Sie 
die Kette an einer Stelle (etwa durch 
FORGET), so sind auch alle Wörter ver- 
loren, die bis zu diesem Punkt auf der 
Kette aufgereiht wurden. 

Nicht immer läßt Forth das Löschen 
von Wörtern soohne weiteres zu. Inden 
meisten Forth-Versionen ist der Sprach- 
kern geschützt. Eine User-Variable 
»FENCE« enthält die Adresse, ab der 
ein Löschen durch FORGET nicht mehr 
möglich ist. 

Noch ein Wort zur Namensgebung. 
Hier dürfen Sie Ihrer Kreativität freien 
Lauf lassen, denn als Wortname ist jede 
beliebige Zeichenkombination erlaubt, 
die nicht länger als 31 Zeichen ist. 
Lediglich Leerzeichen dürfen nicht 
benutzt werden. 

Daß sich in Forth so ziemlich alles um, 
beziehungsweise neu definieren läßt, 
zeigt das folgende Beispiel: 

8.6... OK 

Damit wurde der Zahl 8 kurzerhand 
eine neue »Bedeutung« gegeben. Denn 
auf einmal erhalten Sie mit 
8 QUADRAT . 36 OK 
ein recht merkwürdiges Ergebnis. Forth 
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So wird der Stack durch das Wort KUBIK verändert 


ist, und das werden Sie noch öfters 
feststellen, die Sprache der nahezu 
unbegrenzten Möglichkeiten. 


Um Ihnen die Wortbildung noch ein- 
mal zu verdeutlichen, definieren wir 
noch eine zweite Funktion. 


RKUBEK /DUPSZDURF RR... ; 


Mit der Funktion KUBIK wird ab sofort 
die Kubikzahl des Ausgangswerts im 
TOS auf den Bildschirm ausgegeben. 
Dazu verdoppelt DUP die Zahl auf dem 
TOS zweimal und multipliziert dann die 
beiden obersten Werte jeweils mitein- 
ander (»* *«). Der Doppelpunkt und das 
Semikolon umschließen die Definition. 


Forth, entscheiden Sie sich! 


UPN, Rechnen mit dem Stack 
und Wortdefinitionen sind nach 
den letzten Seiten kein Problem 
mehr für Sie. Aber ein Computer- 
Programm muß auch Entschei- 
dungen treffen können. 


ie in fast allen höheren Pro- 
grammiersprachen, kön- 
nen auch in Forth Entschei- 


dungen in der Form »Führe eine Anwei- 
sung nur dann aus, wenn ein Vergleich 
positiv ausfällt« bearbeitet werden. 
Forth stellt dazu zwei Konstruktionen 
zur Verfügung. Zum einen »IF ... ENDIF« 
und zum andern »IF ... ELSE ... ENDIF«. 
Die zweite Anweisung bearbeitet den 
Teil zwischen IF und ELSE, wenn der 
Vergleich positiv ist. Ist er negativ, dann 
wird der Teil ausgeführt, der zwischen 
ELSE und ENDIF steht. Fast alle Forth- 
Dialekte erlauben anstelle von ENDIF 
auch THEN, wenn auch der erste Weg 
die sinnvollere Bezeichnung darstellt. 

Ein Beispiel verdeutlicht die Arbeits- 
weise von IF ... ENDIF: 
: TEST9 >IF .”ZU GROSS I” 

ENDIF ; OK 

»TEST« prüft, ob die Zahl im TOS (also 
die zuletzt eingegebene Zahl) größer 
als 9 ist. In diesem Fall wird der Kom- 
mentar »ZU GROSS !« ausgegeben. 

4 TEST OK 
11 TEST ZU GROSS OK 

Wenn Sie sich nun einmal das zuge- 
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Mit 

3 KUBIK 27 OK 

bekommen wir das gesuchte Ergebnis. 
100 KUBIK 16960 OK 

ist jedoch ein etwas seltsames Ergeb- 
nis. Hier müssen wir uns wieder den 
Wertebereich unserer Zahlen ins 
Gedächtnis zurückrufen. Denn 
1000000 können wir mit unserem 
Zahlenbereich zwischen -32768 und 
32767 nicht darstellen. 

Nachdem Sie nun eine ganze Menge 
über die Wortdefinition und das Porth- 
Wörterbuch gelernt haben, ist es an der 
Zeit, eine Zusammenfassung durchzu- 
führen: 


hörige Stack-Diagramm (Bild 1) an- 
schauen, dann wird Ihnen der Mecha- 
nismus der IFENDIF-Anweisung schnell 
klar. Um einen Vergleich durchzufüh- 
ren, müssen sich zunächst einmal 
beide Zahlen im Stack befinden. Der 
Vergleichsoperator »>«holt beide Zah- 
len vom Stack, führt den Vergleich aus 
und legt für den Fall, daß er positiv aus- 
fällt eine »1« und für den Fall, das er 
negativ ausfällt eine »O« im TOS ab. Von 
diesem Flag (deutsch: Flagge oder 
Signal) hängt es ab, ob die zwischen IF 
und ENDIF stehenden Anweisungen 
ausgeführt werden oder nicht. 

Bei der IF-ELSE-ENDIF-Anweisung 
dagegen werden für den Fall, daß der 
Vergleich negativ ausfällt, die Anwei- 
sungen zwischen ELSE und ENDIF 
ausgeführt. Alle erlaubten Vergleichs- 
operatoren zeigt Tabelle 1. 

Wenn Sie die Vergleichsoperatoren 
durchgehen, dann werden Sie sicher 
den Vergleich »ungleich« vermissen. Er 
läßt sich aber leicht durch die Wortfolge 
»= NOT« ersetzen. Das Flag, das bei 
»=« im TOS abgelegt wird, invertiert 
dann »NOT« und wir haben unser Ziel 
erreicht. 

Zwei Punkte müssen Sie aber noch 
bedenken, wenn die Anweisung für 
eine Entscheidung dienen soll. Sie darf 
nie im Direktmodus, sondern nur inner- 
halb einer Wortdefinition stehen. 


Außerdem ist noch zu beachten, daß 
die Zahlen, mit denen man den Ver- 
gleich durchgeführt hat, anschließend 








: = Leitet die Definition eines Forth- 
Wortes ein. 


‚ - Beendet die Definition eines 
Forth-Wortes. 

FORGET - Löscht alle Wörter bis 
einschließlich dem angegebenen 
aus dem Wörterbuch. 


Die neuen Worte dieses Abschnitts 


- Jede Wortdefinition wird in das Wör- 
terbuch eingetragen. Dabei ist der hier 
besprochene Doppelpunkt nicht der 
einzige Weg, eine Wortdefinition vorzu- 
nehmen. 

- Ein Eintrag in das Wörterbuch hat zur 
Folge, daß das jeweilige Wort Bestand- 
teil des Wortschatzes wird, und somit 
auch, genauso wie die Worte aus dem 
Grundwortschatz, aufgerufen werden 
kann. 


- Durch FORGET NAME wird die letzte 
Definition NAME gelöscht, sowie alle 
danach durchgeführten Definitionen. 


(Peter Monadjemi/hg) 





vom Stack verschwunden sind. Wollen 
Sie weiter mit diesen Werten arbeiten, 
dann müssen Sie sie zuvor kopieren. 

Nun zu einem anderen Thema: Die 
Stärke eines Computers liegt in seiner 
Fähigkeit, bestimmte Anweisungen 
beliebig oft sehr schnell zu wiederho- 
len. Während im normalen Basic hierfür 
nur die FOR-NEXT-Schleife vorhanden 
ist, kennt Forth insgesamt vier verschie- 
dene Anweisungen. Allen gemeinsam 
ist, daß sie nur in Wörtern (also nicht 
direkt) benutzt werden dürfen. Die ein- 
fachste Wiederholfunktion ist »DO 
LOOP«: 

: SCHLEIFE 10 0 DO I. 
LOOP ; OK 

Als Ergebnis bekommen wir 
SCHLEIFE 0 123456789 0K 

Zwei Besonderheiten fallen an der 
Schleifenkonstruktion sofort auf: 

- Zuerst wird der End- und dann der 
Anfangswert übergeben. 

- Das Wort »I« holt den Schleifenwert, 
der die bisherige Anzahl der Durchläufe 
angibt, in den TOS. 

Die Bedeutung des Wortes »DO« 
besteht darin, zum einen die Stelle zu 
markieren, zu der nach »LOOP« unter 
Umständen zurückgekehrt wird, und 
dient zum anderen dazu, die beiden 
Schleifenwerte (Start und Ende) auf 
einen weiteren Stack zu transferieren. 
Von diesem war bisher noch nicht die 
Rede, da er für den Anfänger keine 
praktische Bedeutung hat. Die Aufgabe 
dieses »RETURN STACK« besteht 
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darin, wichtige Adressen bei der Aus- 
führung eines Wortes zu verwalten. 
Und auch die Schleifenwerte einer DO- 
LOOP-Anweisung werden hier gespei- 
chert. Damitistauch die Bedeutung des 
Wortes »I« zu verstehen. Diese Anwei- 
sung holt den momentanen Wert des 
»Top Of Return Stack« in den TOS. 

Die DO-LOOP-Anweisung gehört zu 
den sogenannten »definierten Schlei- 
fen«, da die Anzahl der Durchläufe von 
vornherein fest steht. Ganz anders ist 


das bei »BEGIN ... UNTIL«: 
: TEST BEGIN 1 + DUP . 
DUP 100 = 
UNTIL. -ERRTIG 7 590 


Hier steht die Anzahl der Durchläufe 
nicht von vornherein fest. Sie hängt viel- 
mehr von einer Bedingung ab. In unse- 
rem Beispiel wird durch »=« geprüft, ob 
der Inhalt des TOS bereits den Wert 
100 erreicht hat. Ist das der Fall, so wird 
im TOS eine 1 als Flag abgelegt. Daran 
erkennt das Wort UNTIL, daß eine 
Anweisung abzubrechen ist. 

Für den Fall, daß der Inhalt des TOS 
100 noch nicht erreicht hat, wird durch 
»=« eine O im TOS abgelegt und 
anschließend werden alle Anweisun- 
gen, die zwischen BEGIN und UNTIL 
liegen, ein weiteres Mal wiederholt. 
Somit handelt es sich bei dieser Anwei- 
sung um eine vom Typ: »Wiederhole so 
lange, bis eine bestimmte Bedingung 
wahr ist.« 

Falls Ihnen dieser Befehl immer noch 
zu undurchsichtig ist, so nehmen Sie 
ein Blatt Papier und zeichnen Sie die 
Stackbelegung bei dem Wort TEST auf. 
Denken Sie daran, daß sowohl durch 
».«, als auch durch »=« der Inhalt des 
TOS vom Stack verschwindet, wenn 
man ihn nicht vorher kopiert hat. 

Noch ein Beispiel für diese Befehls- 
folge: 

: UEBUNG BEGIN CR 
” DRUECKE EINE TASTE” KEY 

e5: = UNTIL; OK 

Durch KEY wird ein Zeichen von der 
Tastatur gelesen (ähnlich GET in Basic) 
und der dazugehörige ASCIi-Wert im 
TOS abgelegt. Dieser wird daraufhin mit 
65 verglichen (ASCIl-Wert von A ist 
65). Haben Sie tatsächlich A eingege- 
ben, so bricht der Programmlauf ab, 
andernfalls wird er ein weiteres Mal 
durchgeführt. 

Ähnlich wie bei BEGIN-UNTIL liegen 
die Verhältnisse bei der BEGIN- WHILE- 
REPEAT-Anweisung mit dem Uhter- 
schied, daß die Ausführungs- 
Bedingung bereits vor dem WHILE ste- 
hen muß. Die eigentliche Anweisung 
befindet sich zwischen WHILE und 
REPEAT. Ist die Bedingung nicht erfüllt, 
so wird die Anweisung gar nicht erst 
ausgeführt. 

: TASTE BEGIN KEY 65 = 

WHILE .” VERSUCH'S NOCHMAL ” 

»” NA ENDLICH !” ; OK 


UNTIL 

















TASTE B VERSUCH'S NOCHMAL OK 
TASTE A NA ENDLICH ! OK 

KEY bringt wieder den ASCIl-Code 
der gerade gedrückten Taste in den 
TOS. »65 =« prüft diesen Wert auf 
Code 65 (für A). Da in diesem Fall im 
TOS eine »1« abgelegt und dadurch die 
Anweisung zwischen WHILE und 
UNTIL nicht ausgeführt werden würde, 
wird der Inhalt des TOS (das Flag) mit 
»0=« invertiert. Wenn im TOS eine O 
liegt, dann verändert »>0=«dieseineine“” 
1. 

Zum Abschluß dieses Kapitels noch 
eine Wiederholungsanweisung, bei der 
Sie sich keine Gedanken um ein 
Abbruchkriterium machen müssen. 
Denn bei »BEGIN-AGAIN« handelt es 
sich um eine Endlosanweisung. 

: NONSTOP BEGIN 40 EMIT 
AGAIN ; OK 

Nach dem Aufruf von NONSTOP pro- 
duziert Ihr Computer so lange Klammer- 
affen, bis Sie den Strom abschalten 
oder einen Reset durchführen. 

Variablen, ohne die kaum ein Basic- 
oder Pascal-Programm auskommt, 
haben wir bisher eher beiläufig 
erwähnt. Das liegt daran, daß Forth 
(anders als Basic und Pascal) stack- 
orientiert ist. Damit ist gemeint, daß sich 
alle Zahlenoperationen auf dem Stack 
abspielen. Demnach könnte man streng 
genommen auf die Variablen völlig ver- 
zichten. In bestimmten Fällen haben 
diese aber doch ihre Bedeutung. Denn 
zum einen ist die Kapazität des Stacks 
begrenzt, und zum anderen ersparen 
Sie sich durch die Verwendung von 
Variablen, beziehungsweise Konstan- 
ten, allzu umständliche Stack-Opera- 
tionen. 

Um mit Konstanten oder Variablen zu 
arbeiten, müssen Sie diese (ähnlich 
Pascal) zuerst einmal definieren und 
ihnen einen Anfangswert zuweisen. 
Dies geschieht durch die Definitions- 
wörter »CONSTANT« und »VARIABLE«. 
O VARIABLE ZAHL OK 

Damit haben wir eine Variable auf den 
Namen Zahl definiert. Beim Aufruf von 


sc 


wenn n2 = nI 
wenn n2 < ni 
f= wenn n2 > ni 


Die folgenden Operatoren erwarten 


eine Zahl n im Top of Stack, welche 
mit Null verglichen wird. 

0 =f=1iwennn=0O 

0 <f=1iwennn<O( 

O >f=1wennn>O 


Tabelle 1. Die Vergieichsoperatoren 
brauchen die zwei obersten Stellen 
im Stack 











Zahl erhalten Sie nun aber nicht deren 
Wert, sondern lediglich die Adresse, 
unter der dieser Wert im Speicher zu 
finden ist. 

ZAHL . 12345 OK 

Um den eigentlichen Wert zu erfah- 
ren, benutzen wir den schon bekannten 
Befehl »C@« beziehungsweise »?«. 
Seine Bedeutung war: »Hole den Inhalt 
der Speicherzelle, deren Adresse im 
TOS liegt.« Mit 
4 ZAHL ! OK 
weisen wir unserer Variablen ZAHL den 
Wert 4 zu. Zuerst laden wir die 4 und die 
Adresse von ZAHL auf den Stack. Mit 
ZAHL 4 0K 
testen wir, ob die neue Zahlim Speicher 
abgelegt wurde. 

Ein wenig anders schaut es mit den 
Konstanten aus. Hier bringt der Aufruf 
der Konstanten mit Namen ihren Wert 
direkt in den TOS: 

45 CONSTANT WERT OK 
WERT . 45 OK 

Auch der Wert einer Konstanten läßt 
sich ändern, wenn Sie die Adresse ken- 
nen. Als wir weiter vorne die Zahlen- 
basis veränderten, griffen wir auf solch 
eine Variable zurück. Zum Abschluß 
noch ein kleines Zählprogramm, das im 
Hexadezimalsystem bis 100 zählt: 

: HZAEHL 

100 0 DO HEX I 

DECIMAL ; OK 

Programmieren können Sie in Forth 
jetzt natürlich noch lange nicht. Aber 
Sie kennen die Grundzüge und es steht 
Ihnen nichts im Wege, sich mit offenen 
Augen in das Abenteuer Forth zu stür- 
zen. In der folgenden Tabelle 2 finden 
Sie diesmal nicht die neu besproche- 
nen Befehle, sondern alle diejenigen, 
die Ihr Forth-System haben sollte, aber 
nicht haben muß. Die Erklärung der 
Befehlsworte spornt Sie vielleicht an, 
die Anweisungen auszuprobieren und 
in eigenen Programmen zu verwenden. 
Die Listings in diesem Heft zeigen Ihnen 
weiter, wie man Forth-Programme ent- 
wickelt und realisiert. 

(Peter Monadjemi/hg) 
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Bild 1. So verändert sich der Stack 
beim Vergleich 
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Speichert eine Zahl in der 
Adresse an oberster Stack- 
Position 

Dient bei der Zahlenausgabe mit 
Maske für die Zifferndarstellung 
vorzeichenloser doppelt 
genauer Integers 

Beendet die maskierte 
Zahlenausgabe 

Fordert zur Eingabe einer ein- 
fach genauen Integer auf 
Wandelt bei der Zahlenausgabe 
mit Maske Ziffernzeichen in den 
ASCII-Code um 

Dient zum Speichern von Strings 
Vereinbart einen String im 
Arbeitsspeicher 

Entfernt nachlaufende Blanks 
vom String 

Druckt einen String 

Vereinbart einen String-Array 
Vergleicht String-Variable 
Vereinbart eine String-Konstante 
Vereinbart eine String-Variable 
Vertauscht die Werte in String- 
Variablen 

Liefert die Adresse des näch- 
sten Wortes im Eingabestrom 
Leitet einen Kommentar ein 
Liefert das Produkt zweier 
Zahlen 

Multipliziert n, mit n, und 
dividiert 

das doppelt genaue Produkt 
durch n, 

Ähnlich wie */; liefert jedoch 
auch den Rest 

Liefert die Summe zweier Zahlen 
Inkrementiert den gespeicherten 
Wert 

Inkrementiert eine Schleifen- 
varlable 

Compiliert n ins Wörterbuch 
Subtrahiert n, vonn, 
Aktualisiert den Zeichenzähler 
Gibt eine Zahl aus 

Gibt Text aus 

Gibt die Zahl n, im Datenfeld n, 
aus 

Dividiert n, durch n, 

Division mit Quotient und Rest 
»Wahr« fallsn < O 

»Wahr« fallsn = O 

»Wahr« fallsn > O 
Inkrementiert den obersten 
Stack-Eintrag um Eins 
Dekrementiert den obersten 
Stack-Eintrag um Eins 
Multipliziert den obersten 
Stack-Eintrag mit 16 

Speichert eine doppelt genaue 
Integer 

Definiert einen zweidimenslo- 
nalen String-Array 

Multipliziert die oberste Integer 
mit 2 

Addiert 2 auf die oberste 
Integer 

Subtrahiert 2 von der obersten 
Integer 

Dividiert die oberste Integer 
durch 2 


2@ 


2ARRAY 


2DARRAY 
2DROP 
2DUP 


OVER 


2ROT 


2SWAP 


2VARIABLE 


<CMOVE 


2CONSTANT 





Holt eine doppelt genaue Inte- 
ger aus der Adresse 

Definiert einen zweidimensiona- 
len Array 

Definiert eine doppelt 

genaue Konstante 

Definiert einen doppelt 
genauen Integer-Array 

Entfernt die oberste doppelt 
genaue Integer vom Stack 
Dupliziert die oberste doppelt 
genaue Integer auf dem Stack 
Dupliziert die zweite doppelt 
genaue Integer auf dem Stack 
an oberste Stack-Position 
Rotiert die dritte doppelt genaue 
Integer an oberste Stack- 
Position 

Vertauscht die obersten beiden 
doppelt genauen Integers 
Vereinbart eine doppelt genaue 
Variable 

Leitet die Definition eines 
FORTH-Wortes ein 

Beendet die Definition eines 
FORTH-Wortes 

Wird »wahr« fallsn, < n, 


Leitet die Zahleneingabe mit 
Maske ein 

Wird »wahr«, falls n, kleiner oder 
gleich n, ist 

Wird »wahre«, falls n, ungleich n, 
ist 

Dupliziert n Speicherwörter 
beginnend bei a, an der 
Adresse a,; Übertragung 
beginnt bei der höchstwertigen 
Adresse 

Ist »wahre«, falls n, gleich n, ist 
Ist »wahr«, falls n, größer oder 
gleich n, Ist 

Enthält die Startposition für die 
Untersuchung 

des Eingabestroms 

Überträgt eine Integer auf den 
Kontroll-Stack; benötigt 
entsprechendes R> 

Dupliziert die oberste einfach 
genaue Integer, es sei denn, 
diese ist gleich O 

Holt die an der Adresse gespei- 
cherte einfach genaue Integer 
Ersetzt die oberste einfach 
genaue Integer durch Ihren 
Absolutbetrag 

Erweitert den Speicherbereich 
einer Variablen um n Byte 
Bitweises logisches AND 
Vereinbart einen Array 

Legt den ASCiIl-Wert des ersten 
Zeichens in dem String, der bei 
a beginnt, auf den Stack 
Enthält die Ein-/Ausgaberadix 
Leitet eine Schleife ein 

Füllt Speicherbereiche mit 
Leerzeichen 

Enthält die Adresse des Block- 
puffers für den Eingabestrom 
Überträgt den Block n von der 
Diskette in den Arbeitsspeicher 
und legt dessen Startadresse 
auf den Stack 


d,d,-d,d,d, 


d, d, d, -d, d,d, 


d, d,-d,d, 








won Beschreibung Stack-Relation wort Beschreibung Stack-Relation 


BUFFER 


C 


c@ 


CASEND 
CHR$ 


CMOVE 


COMPILE 
CONSTANT 
CONTEXT 
COUNT 

CR 
CREATE 
CRT 
CURRENT 
D#IN 

D* 


D*/ 


D*/MOD 


D+ 


D/ 
D/MOD 
D. 


D.R 


E 

EDIT 
ELSE 
EMIT 
EMPTY- „ 


BUFFERS 
ERASE 


EXECUTE 


EXIT 


Tabelle 2. Der Befehlssatz, den Ihr Forth-System haben sollte 


N 


Wie BLOCK, die Daten werden 
jedoch nicht übertragen 
Speichert das niedrigwertige 
Byte einer einfach genauen 


Integer 


Holt ein Byte und speichert es 
als einfach genaue Integer 
Beendet eine CASE-Anweisung 
Wandelt eine ein Byte lange 
Integer in ihre ASCII-Darstellung 
um; das Ergebnis steht im tem- 
porären Arbeitsbereich, dessen 
Adresse auf den Stack gelegt 


wird 


Überträgt n Bytes von Adresse 
1 nach Adresse 2; die Übertra- 
gung beginnt bei den niedrig- 


wertigen Adressen 


Nimmt einen Wert in die Wortde- 


finition mit auf 


Vereinbart eine Konstante mit 


dem Wert n 


Enthält die Adresse des 


Kontext-Vokabulars 


Legt die Anfangsadresse des 
Strings und den String-Zähler 


auf den Stack 


Sendet einen Zeilenvorschub 
Richtet einen Wörterbucheintrag 


ein 


Lenkt die Ausgabe auf den 


Bildschirm 


Enthält die Adresse des aktuel- 


len Wörterbuches 


Fordert zur Eingabe einer dop- 
pelt genauen Integer auf 
Multipliziert doppelt genaue 


Integers 


Multipliziert d, mit d, und divi- 
diert das vierfach genaue Pro- 
dukt anschließend durch d, 

Wie D*/; liefert aber auch den 


Rest 


Addiert zwei doppelt genaue 


Zahlen 


Subtrahiert zwei doppelt genaue 


Zahlen (d, minus d,) 


Liefert den Quotienten 


von d, und d, 


Wie D/, liefert aber auch 


noch den Rest 


Gibt eine doppelt genaue 


Integer aus 


Gibt eine doppelt genaue Inte- 
ger in einem n Zeichen langen 


Datenfeld aus 


Bearbeitet den Block, der vom 
Inhalt von SCR bestimmt wird 
Bearbeitet Block n; n wird in 


SCR gespeichert 


Für Programmverzweigungen 
Gibt ein Zeichen aus 
Markiert alle Puffer als leer 


Setzt n aufeinanderfolgende 
Byte auf den Wert 0, beginnend 


mit der Adresse a 


Führt den Wörterbucheintrag 
aus, dessen Adresse auf dem 


Stack liegt 


Beendet die Programmbe- 


arbeitung 


na- 


a, a,Nn- 


== 
-d 
d,d,-d, 


d,d,d,-d 


d, d,d,d,d, 
d,d,-d 
d,d,-d 


d,d,-d 


d,d,-d.d, 


d- 


dn- 


an- 


EXPECT 


FILL 


FIND 
FLUSH 
FORGET 
FORTH 
DO= 


D< 
DABS 


DARRAY 


DECIMAL 
DEFINITIONS 


DEPTH 


DMAX 
DMIN 
DNEGATE 
DO 
DRDSECS 
DROP 
DUP 
DWTSECS 
HERE 
HEX 
HOLD 

| 

’ 


IF 
IMMEDIATE 


INDEX 


KEY 


LEAVE 
LEFT$ 


Liest Zeichen in den Arbeits- 
speicher ein, beginnend bei 
Adresse a, wobei maximal .n Zei- 
chen oder bis zum ersten 


Return gelesen wird 


Belegt n aufeinanderfolgende 
Speicherwörter (beginnend bei 


Adresse a) mit dem 
ASCII-Wert n, 


Sucht die Adresse des nächsten 
Wortes im Eingabestrom 
Speichert die markierten Puffer 


auf Diskette 


Löscht alle Wörter bis ein- 
schließlich dem angegebenen 
aus dem Wörterbuch 

Name des Hauptwörterbuches 
Ist swahr«, wenn der doppelt 
genaue Wert gleich O ist 

Ist »wahr«, wenn d, kleiner d, ist 
Liefert den Absolutwert einer 
doppelt genauen Integer 
Vereinbart einen Array mit dop- 
pelt genauen Integers 

Setzt die Zahlenbasis auf 10 
Macht den Kontext-Wortschatz 
zum aktuellen Wortschatz 
Liefert die Stack-Tiefe in Einhei- 
ten von einfach genauen 


Integers 


Liefert die größere von zwei 
doppelt genauen Integers 
Liefert die kleinere von zwei 
doppelt genauen Integers 
Dreht das Vorzeichen einer dop- 
pelt genauen Integer um 
Leitet eine Schleife ein 

Liest Diskettensektoren 
Entfernt die oberste einfach 
genaue Integer vom Stack 
Dupliziert die oberste einfach 


genaue Integer 


Schreibt Diskettensektoren 
Liefert die Adresse des näch- 


sten verfügbaren 
Wörterbuch-Bytes 


Umwandlung der Zahlenausgabe 
in Hexadezimaldarstellung 

Zur Einfügung von Zeichen bei 
der Zahlenausgabe mit Maske 
Legt den Schleifenindex auf den 


Stack 


Legt den Testwert der Schleife 


auf den Stack 


Für Programmverzweigungen 
Schaltet von Compilierung 


in Ausführung um 


Gibt die erste Zeile von n, 
Blocks aus, beginnend 


mit Block n, 


Liefert den Index der dynamisch 
übernächsten Schleife auf den 


Stack 


Legt den ASCIlI-Code des näch- 
sten Eingabezeichens auf den 


Stack 


Gibt den Block aus, dessen 
Nummer in SCR gespeichert ist 
Beendet eine Schleife 

Überträgt die n ersten Zeichen 
des Strings, der bei a beginnt, in 
den temporären Arbeitsbereich 
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ann. - 


-n 

d, d,-d 

d,d,-d 
d--d 

N, - 
an,n,n,Nn,-nf 

n- 
n-nn 
an,n,n,n,-nf 


an-a, 
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LIST 
LITERAL 
LOAD 
LOADS 
LOOP 

M ® 


M*/ 


MIN 
MOD 
MOVE 
MYSELF 


NCASE 
NEGATE 


NOT 

OCTAL 
OTHERWISE 
OVER 

PAD 


PAGE 
PCRT 


PRINT 
QUERY 


QUIT 
R> 


R@ 


RANDOMIZE 


REPEAT 


RIGHT$ 


Tabelle 2. Der Befehlssatz, den Ihr Forth-System haben sollte 


Schluß) 
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Legt die Länge eines Strings auf 

den Stack 

Gibt den Block n aus und legt n n- 
in SCR ab 

Nimmt den Stack-Wert, ohne Ihn 

zu interpretieren, in die Complla- 

tion mit auf 

Lädt den Block n Nn- 
Lädt n, Block, beginnend mit n, n,n,- 
Inkrementiert den Schlel- 
fenindex 

Doppelt genaues Produkt zweier 
einfach genauer Integers 
Multipliziert d, mit n, und spei- 
chert das Produkt als dreifach 
genaue Integer, welche dann 
durch n, dividiert wird; der Quo- 
tient ist doppelt genau 
Gemischte Addition 

Gemischte Subtraktion 
Gemischte Division 

Wie M/, außer daß sowohl Quo- 
tient als auch Rest geliefert 
werden 

Liefert den größeren von zwei 
Werten 

Überträgt an die Adresse a, 
einen n, Zeichen langen Teil- 
String, der ab der n,ten Zel- 
chenposition des Strings a 
beginnt 

Liefert den kleineren von zwei 
Werten 

Liefert den Rest der Division 

von n,/n, 

Verschiebt n 16 Byte lange 
Speicherwörter, beginnend bei 
a,, nach, 

Erlaubt rekursive Aufrufe 

Leitet eine CASE-Anweisung ein n- 
Ersetzt eine Zahl durch die 
negative Zahl mit dem gleichen 
Betrag 

Negiert ein Flag 

Setzt die Ein-/Ausgabebasis für 
Zahlen auf das Oktalsystem 
Allgemeiner Ausgang in CASE- 
Anweisungen 

Dupliziert die zweite Zahl an n,n,-n, 
oberste Stack-Position 

Enthält die Anfangsadresse des -8 
temporären Arbeitsbereichs 

Löscht den Bildschirm 

Legt die Ausgabe sowohl auf 

Bildschirm als auch auf Drucker 

Legt die Ausgabe nur auf den 

Drucker 

Für Zeicheneingabe 

Löscht den Return-Stack 

Überträgt die oberste einfach - 
genaue Integer vom Return- 

Stack auf den Parameter-Stack 

Dupliziert die oberste einfach -n 
genaue Integer vom Return- 
Stack auf den Parameter-Stack 
Initialisiert den Zufallsgenerator 
Für die Programmierung von 
Schleifen 

Überträgt die n letzten Zeichen 
des Strings a in den temporären 
Arbeitsbereich, liefert dessen 
Adresse 


n,n,-d 


d, Nn.N,; = d, 


d,n-d, 
d,n-d, 
dn, -n, 
dn,-d,n, 


n,n,-n 


an,n,-a, 


n,n,-n 
n,n,-n 


a,8,n- 


an-a, 


Erzeugt eine Zufallszahl und 
speichert sie In SEED 

Erzeugt eine Zufallszahl 
zwischen 1 undn, 

Legt die n-te einfach genaue 
Integer auf dem Stack an ober- 
ste Stack-Position 

Befördert die dritte einfach 
genaue Integer an oberste 
Stack-Position 

Markiert alle Puffer für nachtfol- 
gende Sicherungen 


Enthält die Adresse des zuletzt 

bearbeiteten Blockpuffers 

Fügt den ASCIlI-Code des 

Minuszeichens bei Zahlenaus- 

gabe mit Maske ein, falls n 

negativ ist 

Gibt ein Leerzeichen aus 

Vertauscht die beiden obersten 

Stack-Einträge 

Bei Programmverzweigungen 

benötigt 

Gibt n Zeichen beginnend ab 

der Adresse a aus 

Vorzeichenlose Integermulti- 

plikation 

Gibt eine vorzeichenlose Integer 

aus 

Gibt eine vorzeichenlose Integer 

in einem n Stellen breiten 

Datenfeld aus 

Vorzeichenlose Division mit dop- 

pelt genauem Dividenden, liefert 

Quotienten und Rest 

U< »Wahr« falls u, kleiner u, Ist (vor- 

zeichenlose Integers) 

Für die Programmierung von 

Schleifen 

Markiert alle Blockpuffer als 

gesichert 

Definiert eine Variable 

Für die Vereinbarung eines 

neuen Wortschatzes 

Für die Programmierung von 

Schleifen 

Liest Zeichen aus dem Eingabe- 

strom; Trenner ist Zeichen mit 

ASCII-Code n 

XOR Bitweises exklusives ODER 

Y/N Fragt nach Y oder N; N liefert 
Wahrheitswert »wahr« 

[ Beendet Compilierung und leitet 

Ausführung ein; wird in Wortdefi- 

nition benötigt 

Bewirkt, daß ein Wort mit dem 

Status IMMEDIATE compiliert 

wird 

Beendet Ausführung und fährt 

mit der Compillerung fort 


ROT N, NN, -n,Nn;N, 


SAVE- 
BUFFERS 


SCR 


SIGN 


UNTIL 
UPDATE 


VARIABLE 
VOCABU- 
LARY 
WHILE 


WORD 


[COMPILE] 


Tabelle aua »Daer Einstleg In Forth«, Marki& Technik Verlag AG, ISBN J-A8000-086-2 


Die Buchstaben der Stack-Relationsspalte bedeuten: 
Adresse 

ASCII-Code 

doppeltgenaue Zahl 

Flag 

ganze Zahl 

Rest (bei Division) 

ganzzahliges Ergebnis (bei Division) 

















Gelerntes will auch geübt werden. Wer noch kei- 
nen Forth-Interpreter hat, der findet hier einen, der 
nichts kostet. Einfach eintippen, RUN eingeben 
und mit der ENTER-Taste starten. 


achdem Sie sich jetzt durch viele Seiten Forth hin- 
durchgekämpft haben, wollen Sie Ihre Forth-Pro- 
gramme zum Laufen bringen. Doch gleich einen 
Compiler kaufen, das muß nicht sein. Testen Sie erst einmal 
Ihr Interesse mit diesem kostenlosen Basic-Forth-Interpreter. 

»Basic-Forth V.4« ist vollständig in Basic geschrieben und 





1 CLS 

2 DIM S(88) .R(88) ,L(808).LOCBB) „I*E(8900) 
3 DIM R$t(80) 

4 FRINT " BASIC-FORTH 
28 REM 

z4 ON ERRKBR GOTO 29 

28 GOTO 38 

29 FRINI A$,„"?" 

38 M=8® 

32 N=8 

s6QB K=1l 

o2 INFUT I$ 

63 Is=1#+" " 

64 Li=Ö8 

78 L(K)=L1 

72 LO(K)I=LEN(I$) 

74 L1=LO(k) 

1088 IF N{B THEN GOTO 196 
104 GOTO 110 

186 PRINT "STACK EMPTY" 
188 GOTO 309 

118 L(FE>=L(E) +1 

112 IF L(K)>LOCK) THEN GOTO 132 
114 B$=MIDF(I$,L(K),1) 

11& IF EBt=" “ THEN GOTO 1108 

118 At=o$ 

128 L(K)=Lı(k) +1 

ı22 Bf=MID$CI$,L(k),|1) 

124 IF B$=" " THEN GOTO 138 

126 Af=AF+B% 

128 GOTO 128 

ı30 GOIO 220 

132 IF K<2 THEN GOTO 68 

1724 K=k-]I 

1 35 I$=MID$(I$#.1,1L0D(K)) 

136 L1=LO(kK) 

128 GOTO 118 

208 REM DICTIONARY 

za8B IF At<>"SQUARE" THEN GOTO 218 
3902 B+$="DUF * " 

3984 I$=I$+BR$ 

2086 k=Hk+1 

388 GOTD 78 


v.4" 


3108 IF A$<>"CUBE" THEN G0OTO 220 

312 B$="DUF SQUARE # " 

314 I$=I$+b$ 

316 K=K+1 

318 GDTO 78 

328 IF A$<. "TEST" THEN GOTO 3350 

322 B$="DO PI 18 / R@ * SIN . LOOF " 
324 I$=1$t+B$ 
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Forth zum Abtippen 


läuft auf beinahe jedem Computer. Spezielle Befehle wurden 
fast völlig weggelassen und erklären sich, wenn, durch ihre 
Anweisungen. Also einfach eingetippt und schon beginnt Ihr 
Forth-Vergnügen. 

Die Profis unter Ihnen werden jetzt sicher schmunzeln. 
Forth-Interpreter in Basic - da geht doch der ganze 
Geschwindigkeitsgewinn in die Binsen. Richtig, aber mit 
Basic-Forth sollen Sie nicht professionell programmieren, 
sondern ausprobieren. Und da ist Basic zum Eingeben eben 
die leichteste Programmiersprache. Wenn dann erst einmal 
Interesse an dieser Sprache geweckt ist, können Sie immer 
noch auf einen echten Forth-Compiler umsteigen. (hg) 


326 kKzk+1 

328 GOTO 78 
S38 REM 

992 IF As :"+" 
984 N=N-1 

9B&6 S(N)=S(N) +SI(N+1) 
9988 GOTO 100 
918 IF Asc>"—" 
912 N=N-1 

9143 S(NI=SLN)-S(N+1) 
91& GOTO 1988 
928 IF As<H"#" 
922 N=N-1 

924 S(N)=S(N)#Sı(N+I) 
926 GOTO 198 
939 IF Ası>'"/" 
932 N=N-1 

934 S(IN)I=S(N)/S(CN+1) 

936 GOTIO 198 

940 IF A$<>"ABS" THEN GOTO 950 
942 S(N)=ABS(S(N)) 

944 GOTO 128 

958 IF A$:.>"ATN" THEN GOTO 950 
952 S(N)=ATIN(S(N)) 

954 GDIO 1008 

968 IF A$<«;-"COS" THEN GOTO 9708 
962 S(N)=COS(S(N)) 

964 GOTO 108 

77B IF As< >"EXF'" THEN GOTO 989 
972 S(N)=EXPF (S(N)) 

974 GOTO 188 

gen IF As: >"INT" THEN GOTO 998 
982 S(N)=INI (S(N)) 

984 GOTO 198 

999 IF As$:>"LOG" THEN GOTO 
992 S(N)=LOG(S(N)) 
994 GOTO 1908 

1008 IF As<>"RND" 
1082 S«N)=RND(-N) 


THEN GOIO 9718 


THEN GOTO 920 


THEN GOTO 938 


IHEN GOTO 9748 


1000 


THEN GOTO 1818 


1884 GOTO 1WB 

1810 IF As<:"SGN" THEN GOTO 19820 
1812 S(N)=SGN(S(N)) 

1814 GOTO 108 

1028 IF A$<:"SIN" THEN GOTO 198308 


1922 S(N)=SIN(S(ND) 

1824 GUIDO 100 

1858 IF Ati>"SOR" THEN GOTO 198408 
1932 S(N)=SOR (SIND) 


Listing. Ein Forth-Interpreter zum Abtippen 


10:34 
1840 
1042 
1844 
1858 
1052 
1054 
1968 
1062 
1864 
1066 
1068 
1370 
1971 

1072 
1974 
1076 
1889 
10892 
1884 
1086 
18970 
1072 
1994 
1180 
1182 
11984 
11046 
1188 
1118 
1112 
1114 
1116 
1128 
1122 
1124 
1126 
1128 
1130 
1132 
11.34 
1156 
1138 
1140 
1142 
1144 
114& 
1200 
1202 
120:3 
1294 

1285 
120& 
1207 
12087 
1218 
1212 
1214 
1215 
1216 
1217 
1218 
1220 
1222 
1225 
1224 
1225 
1227 
1228 
1230 





GO1ID 1088 
IF As :"TAN" THEN GOID 12508 
S(N)=TAN(S(ND)I 


G0OTO 100 

IF A$ >" " THEN GOTO 1868 
SıNJ=S(N) S(N+1) 

GOIO 188 


IF As: >"5?" THEN GDOTO 19078 
FOR I=ıIi ION 

PRINI S(N-I+p 

NEXT I 

GOTO 1980 

IF A$i>"." THEN GOTO 19808 

IF N<I THEN G0T0 196 

FRINT S(N) 

N=N-1 

GOTO 108 

IF A$<>"DUP" THEN GOTO 1990 
N=N+1 

S(INI=S(N-I) 

GOTO 180 

IF A$<>"DROP" THEN GOTO 1188 
N=N-1 

GOTO 188 

IF As >"SWAP" THEN GOTO 11108 
S(N+1)=S(N-1) 

S{N-1)=S(N) 

S(N)=S(N+1) 

GOTO 140 

IF A$< -"OVER" THEN G0T0O 1120 
N=N+1 

S(N)=S(N-2) 

GOTO 188 

IF A$<>">R" THEN GOTD 1138 
M=M+1 

R(MI=S<(N) 

N=N-1 

G0TO 1008 

IF A$<c:"R>" THEN GOTO 1140 
N=N+1 

S(N)=R(M) 

M=M-1 

GOTO 188 

IF As >"R@" THEN GOTO 1200 
N=N+i 

S(N)=R(M) 

GOTO 1008 

REM 

IF A$«ı.;"=" THEN GOTOD 1218 
N=N-1 

IF S(N)=S(N+1) 
S(N)=8 

G0TO 188 
S(N)=1I 

GOIO 190 

IF A$<..:>">" THEN GOTO 1228 
N=N-1 

IF S(N) >5S(N+I) 
S(N)=Q 

G0OIO 188 
S(N)=1 

GOIO 1008 

IF A$<>"x" THEN GOTO 1230 
N=N-1 

IF S(N)SS(N+I) 
S(N)=8 

GUTO 198 
sSs(N)=1 

GOTD 1980 

IF A$< "IF" THEN GOTO 1250 


THEN GOTO 1207 


THEN GOTO 1217 


THEN GOTO 1227 


1231 


1232 


1253 
1234 
1235 
1236 
12.37 
1238 
1239 
1240 
1241 
1242 
1 250 
1252 
1260 
1262 
1270 
1272 
1274 
1276 
12808 
1282 
1283 
1284 
1286 
1287 
1288 
1289 
1200 
1 382 
1 384 
1205 
1306 
1306 
1 309 
13108 
1512 
1320 
322 
1524 
1326 
1328 
1330 
123372 
1340 
15008 
1502 
LSO4 
15096 
1510 
1512 
1514 
1516 
1520 
!a22 
1690 
1602 
1694 
gu 
1606 
M=1 

16808 


1618 
1612 
1414 


N=N-1 
IF S(N+1) 





THEN G0OTO 10908 


FOR I=1 (K) TO LOK) -3 


B$=I#(I.I+3) 


IF B$="ELSE" THEN GOTO 12408 


IF B$=" THEN" 
NEXT 1 

FRINI "IF?" 
GO1I0O 308 
I.(k)=1+r4 

GOTO 1808 
GOIN 188 

IF As. >"ELSE" 
GOTO 1233 

IF A$<ı >"THEN" 
GOIO 180 

IF A$< >"BEGIN" 
M=M+1 
R(M)=L(K) 

GOTO 188 

IF A$«>"UNTIL" 
N=N-1 

IF S(tN+1) THEN 
IF S{N+1) THEN 
L(K)=R(M) 

GOTO 180 

M=M-1 

GOTO 1808 


IHEN GOTO 1240 


THEN GOTO 1268 


THEN GOTO 1278 


THEN G0OTO 1288 


THEN GOTO 1:38 


GOTO 1288 
GOTD 188 


IF A$<>"DO" THEN GOTO 1328 


M=M+1 

R(M)=L (#.) 
M=M+1 
R(M)=S(N-1) 
M=M+1 
R(M)I=S(N) 
N=N-2 

GSOTO 188 

IF At: >"lILODF" 
Rım)=R(M) +1 

IF R(M-1) :R(M) 
M=M-\ 

GÜIO 180 
L(K)=R(M-2) 
GOTO ı08 

REM 

IF As: "FI" 
N=N+1 
S(iN)=2.14159 
GOIO 1920 
IF Ati ;:"'9" 
N=N+1 
S(N)I=B 
GOTO 188 
IF A$:;"SI0OF' 
SIOF 

ntst=|] 


THEN GOTO 1348 


THEN GOTO 1330 


IHEN GOTO 1518 


IHEN GOTD 1528 


THEN GCOTO 1692 


FÜR I=1 TO LEN(A®) 
IF MIOS(A&.T,LI<"@" OR MID$(A$,T,|) 


THEN NUM=O 


IF I=1 AND MIDFeAF,L,i)="-" THEN NU 


NEXT I: 


N=N+1t 
S(N)=VAl (A$) 
HOIN 10% 


IF NUM=B THEN PRINT A$:" N 
D1 DEFINED': S0I0O 30 


Listing. Ein Forth-Interpreter zum Abtippen (Schluß) 
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Trace-Befehl für FIG-Forth 


Hier wird ein neues, nützliches Forth-Wort vorge- 
stellt, mit dem man den Ablauf anderer Wörter 
schrittweise untersuchen kann. 


ie einfachste Art, ein Forth-Wort zu testen, besteht 
darin, es mit den entsprechenden Eingangswerten 
auf dem Stack aufzurufen und dann zu hoffen, daß 
sich kein Fehler eingeschlichen hat. Wenn sich der Computer 
dann noch normal zurückmeldet, der richtige Wert ausgege- 
ben wird und der Stack sich in dem Zustand befindet, in dem 
er sich auch befinden sollte, so kann angenommen werden, 
daß das Wort richtig arbeitet. Manchmal aber — und das 
kommt öfter vor, als man möchte — verliert sich der Computer 
in einem Irrgarten und nichts läuft mehr. In diesem Falle ist es 
sehr nützlich, ein Wort zur Verfügung zu haben, das etwa 
einem TRACE-Befehl in Basic entspricht. Solch ein TRACE 
ist aber nicht ganz einfach zu realisieren. Der Grund dafür ist 
unter anderem darin zu suchen, daß es in Forth nicht nur Wör- 
ter gibt, die nur 2 Byte Platz in dem Parameterfeld beanspru- 
chen, sondern auch ein paar andere, die neben ihrer CFA 
(Code-Feld-Adresse) auch noch Daten ablegen. Dazu gehö- 
ren alle strukturierenden Wörter (IF, ELSE, THEN / DO, LOOP, 
+LOOP / BEGIN, UNTIL, WHILE, REPEAT, AGAIN), die ent- 
weder BRANCH oder auch OBRANCH .compilieren und daran 
noch ihre Sprungweite anhängen. Ebenso zählen LIT und 
CLIT dazu, die außer ihrer CFA noch den Wert der Konstan- 
ten eintragen. Nicht zu vergessen auch das Wort ».'«, das 
ganze Texte in das Parameterfeld speichert. 

Alle Wörter, die in irgendeiner Weise den Returnstack 
manipulieren, sind mit besonderer Vorsicht zu behandeln, da 
ein TRACE-Wort diesen Stack selber benötigt. Die Wörter R), 
R, DO, LOOP, +LOOP I, I; J, K, LEAVE gehören dazu und 
müssen deshalb von TRACE alle gesondert behandelt wer- 
den. Man muß für jedes dieser Wörter eine Routine schrei- 
ben, die an einem eigenen Stack diese Manipulationen ent- 
sprechend dem originalen Programm durchführt. Alle ange- 
gebenen Wörter müssen von sTRACE« gesondert behandelt 
werden. Der ganze Rest aber kann von dem internen Inter- 
preter ausgeführt werden. Für sämtliche Returnstack- 
Manipulationen benötigt man neben einem eigenen Return- 
stack auch noch den entsprechenden Pointer. 





ONE-STEP ist 
kein neuer Tanzschritt 


Am einfachsten erscheint es deshalb, TRACE als Rahmen- 
programm aufzufassen, das die Ein- und Ausgaben durch- 
führt und mit dem Anwender kommuniziert. Muß dann einmal 
ein Wort ausgeführt werden, wird ONE-STEP (Listing) aufge- 
rufen, das dann das Wort ausführt, auf das der selbst defi- 
nierte Instruction-Pointer zeigt. 

In dem Wort ONE-STEP sind dann sämtliche Fälle, die nicht 
von dem inneren Interpreter ausgeführt werden können, ein- 
zeln abzuarbeiten. 

Mit dem Wort ONE-STEP können fast alle Forth-Wörter 
getestet werden. Falls es sich bei dem Wort um ein Primitive, 
eine Konstante oder Variable handeln sollte, so wird Ihnen 
das sofort mitgeteilt. Nur Forth-Wörter, die in Highlevel verfaßt 
sind, werden von TRACE auch entsprechend behandelt. 
Wenden Sie TRACE auch mal auf Wörter des Kernals an. 


124 





Dadurch erhalten Sie einen guten Einblick in die Arbeitsweise 
von TRACE, und Sie lernen so auch sehr gut die Programmie- 
rung in Forth selbst kennen. 

Hier ein paar Beispiele: 


4 TRACE 
: * S-)D D.4 ; 
4 „ TRACE D. 


=D. DSDSR SPACE 4 ; 

4 . O TRACE D.R 

: D.R )R SWAP OVER DABS (# #S SIGN #) R) OVER 
SPACES TYPE 4 ; 

Sie sehen daran, wie eng verknüpft Forth selbst in so einem 
grundlegenen Wort wie ».« ist. Auch die Decompilereigen- 
schaften von Forth sind hier ein wenig dargestellt. 

TRACE funktioniert so lange als Decompiler, bis ein Wort 
auszuführen ist, das in seinem Verlauf eine Ausgabe durch- 
führt. Diese Aufgabe, die normalerweise als einzige auf dem 
Bildschirm erscheinen würde, steckt jetzt mitten in dem ent- 
schlüsselten Wort und macht es so manchmal etwas proble- 
matisch, den genauen Sourcetext zu erkennen. Weiterhin 
werden alle strukturierenden Wörter nicht angezeigt, son- 
dern nur deren »Run Time Executive« (BRANCH oder 
OBRANCH) und eventuell auch ausgeführt. 

Es kann sein, daß die Version Ihres Forth nicht ganz genau 
mit der übereinstimmt, die wir eingesetzt haben. So ist zum 
Beispiel das Wort CLIT nicht in jeder Version implementiert. 
Es kann sein, daß Sie das Wort DLIT in Ihrem Programm ver- 
treten haben. 


Einfache Anpassung 


Für den Fall, daß Sie kein CLIT haben, lassen Sie die ganze 
Zeile einfach unter den Tisch fallen und tippen gleich ein 
THEN weniger ein. 

Ist das Wort DLIT aber in Ihrer Version enthalten, so müßten 
Sie einfach eine neue Zeile einfügen, ganz der Zeile von CLIT 
entsprechend. Der Unterschied zu CLIT besteht in der Ande- 
rung von: 1. Lesebefehl C@ nach D@ (Liest statt einem Byte 
ein Langwort, 32 Bit), 2. IPOI darf nicht nur um 1 erhöht, son- 
dern muß um 4 inkrementiert werden. 

In dem Falle, daß sonst noch irgendwelche Wörter in Ihrem 
Forth vorhanden sind, die Daten mit in das Parameterfeld mit 
ablegen (dies kommt oft bei Erweiterungen vor, Strings, spe- 
zielle Datenwörter), so müßten Sie diese Wörter selber 
behandeln. Entsprechendes gilt auch für die Returnstack- 
manipulierenden Wörter. 

Nicht anwenden sollten Sie TRACE bei Wörtern, die selbst 
nur zur Definition von anderen Datentypen entwickelt wur- 
den. Insbesondere die (BUILDS .... DOES)-Funktion funktio- 
niert nicht ganz vollständig mit unserem »Trace«. Auch mit 
anderen Wörtern mag es Schwierigkeiten geben, doch diese 
Wörter befinden sich in der Unterzahl. 

Noch ein letzter Hinweis. Der Stackpointer muß nach ord- 
nungsgemäßer Beendigung des Wortes auf O stehen. Jeder 
andere Wert in SPOI würde bei normalem Ablauf durch den 
inneren Interpreter zum Absturz des Systems führen. Den- 
ken Sie bitte auch daran: Wenn das Wort durch »;« beendet 
wird, muß in SPOI eine Null stehen. Deshalb lasse ich den 
Wert dieser Variablen beim Abbruch auch gleich mit 
ausdrucken. 

Für etwaige Anregungen oder Verbesserungsvorschläge 
sind wir dankbar. 

(Bernhard Leikauf/ev) 








O VARIABLE IPOI 

O VARIABLE SPOI 

O VARIABLE RSTA 38 ALLOT 

: ONE-STEP IPOI @ 

DUP @ ' OBRANCH CFA = 
IF SWAP IF DROP 2 ELSE 

2+ @ THEN IPOI +! ELSE 


DUP @ ' BRANCH CFA = 

IF 2+ @ IPOI +! EISE 

DUP @ ' LITCH = 

IF 2+ @DUP . 2 IPOI +! ELSE 


DUP @ 'CLIT CFA = 
IF 2+C@ DUP . 1 IPOI +! ELSE 


DUP@ ' (.') CA = 

IF 2+ COUNT DUP 1+ IPOI +! TYPE 32 EMIT 
ELSE 
DUP@ ')R CA = 

IF DROP RSTA SPOI @+ ! 
2 SPOI+! ELSE 
DUP@ 'R CFA=OVER®@ 'ICFA=OR 
IF DROP RSTA SPOI @+ 2- @ ELSE 
DUP@'R), CA = 

IF DROP RSTA SPOI @+ 2- @-2 SPOI +! 
ELSE 
DUP @ ' (DO) CFA = IF DROP SWAP RSTA 
SPOI @+ 21 4 SPOI +! ELSE 
DUP@ 'TI' CFA= 

IF DROP RSTA SPOI @ + 4 - @ELSE 
DUP@ 'J CF = 

IF DROP RSTA SPOI @ + 6 - @ELSE 
DUP@ 'K CR = 

IF DROP RSTA SPOI @ + 10 - @ELSE 
DUP @ ' LEAVE CFA = 

IF DROP RSTA SPOI @ + 2 - DUP @ SWAP 2- 
I ELSE 
DUP @ ' (LOOP) CFA = 

IF RSTA SPOI @ + 2- DUP 1+! DUP 2- @ 
SWAP @) 

IF 2+ @ IPOI +! 
ELSE DROP —4 SPOI +! 2 IPOI +! 
THEN ELSE 
DUP @ ' (+LOOP) CFA = 

IF RSTA SPOI @ + 2- ROT OVER +!DUP 2- @ 
SWAP @) 

IF 2+ @ IPOI +! 
ELSE DROP —4 SPOI +! 2 IPOI +! 
THEN ELSE 
@ EXECUTE 


THEN THEN THEN THEN THEN THEN THEN THEN 
THEN THEN THEN THEN THEN THEN THEN 
2 IPOI +! 


4 IE 
\ RIM 


(Def. Instruction Pointer) 

(Def. Returnstack Pointer) 

(Def. Returnstack für max. 20 Einträge) 

(Hole IP aus IPOI) 

(Wort = OBRANCH) 

(Nimm Flag vom Stack) 

(True Flag. Dann überspringe den Offset False Flag. Addiere den Offset zu IPOI;) 

(führe den Sprung aus) 

(Wort = BRANCH) 

(Addiere den Offset zu IPOI; führe den Sprung immer durch) 

(Wort = LIT+) 

(Hole den 16-Bit-Wert, zeige ihn an und lege ihn auch auf dem Stack ab. Setze IPOI auf das) 
(Wort nach dieser Zahl) 

(Wort = CLIT) 

(Hole den 8-Bit-Wert, zeige ihn an und lege ihn auch auf dem Stack ab. Setze IPOI auf das) 
(Wort nach dieser Zahl) 

(Wort...) 

(Versetze IPOI auf das Wort hinter dem Text und drucke diesen Text mit »Space« aus) 


(Wort = )R) 

(Speichere den Wert auf dem Stack an die) 

(Adresse, auf die der Stackpointer zeigt und erhöhe dann den Stackpointer um 2) 
(Wort = Roder = I ? dasselbe PRG) 

(Kopiere den Wert, auf den der Stackpointer zeigt, auf den Parameterstack) 

(Wort = R) ) 

(Hole den obersten Eintrag des Returnstacks auf den P.stack und dekrementiere den) 
(Stackpointer SPOI um 2) 

(Speichere den Schleifenindex und das) 

(Maximum auf dem eigenen R.stack ab) 

(Wort = I') 

(Hole den zweitobersten Eintrag.auf den P.stack) 

(Wort = J) 

(Hole den dritten Eintrag des R.stacks) 

(Wort = K) 

(Hole den fünften Eintrag des R.stacks) 

(Wort = LEAVE) 

(Ändere das Max. der Schleife auf den gegenwärtigen Wert des Schleifenindex (I) ab) 


(Wort) = (LOOP) 
(Inkrementlere den Schleifenindex. Hat er das Max. erreicht?) 


(Führe Sprung zum Schleifenstart aus, wenn I' ) I) 

(Schleifenende erreicht. Verringere Stackpointer) 

(um 4 (Index und Max.. Dann überspringe den Offset zum Schleifenanfang) 
(Wort = (+LOOP)) 

(Erhöhe den Schleifenparameter um den angegebenen Wert) 

(Ist Jetzt das Maximum erreicht oder schon überschritten?) 

(Selbe Operation wie bei (LOOP)) 


(Eventuelle weitere Abweichungen von der Norm wären dann hier fortlaufend einzutragen) 
(Andernfalls ist es ein vom inneren Interpreter) 
(ausführbares Wort und so auch von diesem zu erledigen) 


(Abschluß sämtlicher eröffneter Abfragen, stelle nach Erledigen des Wortes IPOI auf) 
(das nächste zu erledigende Wort). 


: TRACE -Find 
IF DROP CFA DUP @ ' ONE-STEP CFA @ = 
IFCR .'' : '' 2+ DUP NFA ID. IPOI ! O SPOI I 


BEGIN IPOI @ @ DUP 2+ NFA ID. 


BEGIN (Warteschleife des Rechners) UNTIL 
'sSCFA = ?TERMINAL OR IF CR SPOI ? [COMPILE],S THEN 


ONE-STEP 
AGAIN 
ELSE .'' NO HIGH LEVEL '' DROP THEN 
ELSE .'' NOT FOUND '' THEN ; 








Listing. Das vollständige 
»Trace«-Programm. 

Die Kommentare sind 
nicht einzugeben. 
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Turtle-Grafik mit Forth 


Als Beispiel für ein komplexes Programm in Forth 
stellen wir hier ein Grafik-Paket vor. 


bwohl ursprünglich für den C64 mit HES-Forth 
oO geschrieben, lohnt es sich sicher auch für die Besit- 

zer anderer Computer oder anderer Forth-Versio- 
nen, sich mit diesem Grafikpaket etwas näher zu beschäfti- 
gen. HES-Forth ist im wesentlichen ein etwas erweitertes 
FIG-Forth. Zur Anpassung an andere Computer brauchen nur 
die systemspezifischen Teile dieses Programm-Pakets ge- 
ändert werden. 

Im folgenden Text geben wir eine ausführliche Programm- 
beschreibung, die die Arbeit mit diesem Programm erleich- 
tern soll. Das gesamte Paket besteht aus drei Teilen: 

- dem High-Resolution-Graphic-Package 
- der Multi-Color-Graphic 
- den Extras 

Das Programm wird durch die Lade-Screens 02, 03 und 04 
des Main-File geladen. 

Es steht eine hochauflösende Grafikseite mit einer Auflö- 
sung von 320 x 200 Pixel zu Verfügung. Der Punkt (0,0) liegt 
dabei in der linken oberen Ecke. Die Befehle HION und 
HIOFF schalten zwischen dem normalen Arbeitsbildschirm 
und der Grafikseite hin und her. Alle Eingaben können weiter- 
hin im direkten Modus erfolgen. Ein Beispiel sieht so aus: 


HION ( Einschalten der Grafik ) 
14 0 CFILL ( Farben einstellen ) 
HCLEAR ( Bildschirm löschen ) 

0 0 319 199 LINK ( Diagonale ziehen ) 

HIOFF ( Ausschalten der Grafik ) 


Entsprechend der üblichen Umgekehrt Polnischen Nota- 
tion erwarten alle Worte ihre Parameter auf dem Stack. Wich- 
tig sind dabei immer die Leerzeichen (Spaces) zwischen den 
Wörtern. Solange die Grafikseite aktiv ist, sind die Eingaben 
ja nicht sichtbar. 

Bei einem Tippfehler drückt man entweder RUN/RESTORE 
- dabei wird der Stack und der Arbeitsbildschirm gelöscht, 
nicht aber die Grafikseite - und wiederholt die letzte Eingabe. 
Oder aber man gelangt durch HIOFF zurück auf den Arbeits- 
bildschirm, der die letzten Eingaben zeigt. Der Handler zur 
Adreßberechnung für X-Werte außerhalb (0/319) und Y- 
Werte außerhalb (0/199) steht in XFORM beziehungsweise 
YFORM und kann vom Benutzer abgeändert werden. 
XFORM und YFORM sind als »wrap-aroundk initialisiert, das 
heißt (-1,-1) ist gleich (319,319) etc. 

Die Grafik kann als sequentielle Datei auf Diskette gespei- 
chert werden, und zwar mittels der Befehle HIWRITE und 
HIREAD. Zuvor ist einmal mit »SEQ name« ein Filename fest- 
zulegen. Die beiden Befehle beziehen sich so lange auf 
name, bis dieser mit SEQ geändert wird. 


Der Aufbau der Datei sieht folgendermaßen aus: 
8 KByte Bit-Maß 


1 Byte Hintergrundfarbe 
1000 Byte Farb-RAM (low) 
1000 Byte Farb-RAM (high) 


PLOT und LINK stehen sowohl als High-Level-Wort wie 
auch als Primitive zur Verfügung. Welche Version geladen 
werden soll, wird mit Scr #02 eingestellt. 

Nun zum Laden: 
FILE MAIN 
2 LOAD 
FCLOSE 
Der Ladevorgang nimmt etwa vier Minuten in Anspruch. 
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Zusätzlich zur normalen hochauflösenden Grafik bietet das 
Paket eine Multi-Color-Grafik mit 160 x 200 doppelt-breiten 
Punkten, wobei jedes Pixel eine von vier möglichen Farben 
haben kann. Das Ein-/Ausschaltennehmen MON (Multi-Color 
ein) und MOFF (aus) vor. CFILL erwartet jetzt vier Parameter 
(Farben) auf dem Stack. HCOL wählt die Zeichenfrabe 1,2 
oder 3 aus dem mit MCOL definierten Farb-Set. 

Da alle Tastatur-Eingaben das Farb-RAM (high) beeinflus- 
sen, sollte man im direkten Modus nicht mit mehr als vier Far- 
ben (ändern mit MCOL) arbeiten. ?LOAD veranlaßt beim 
Laden der »Extras« das zusätzliche Einlesen von MPUT und 
MSHAPER. 

Die übrigen Befehle entsprechen den normalen Hires- 
Befehlen. Das Laden der Multi-Color-Grafik erfolgt mit 
FILE MAIN 
3 LOAD 
FCLOSE 
und beansprucht etwa vier Minuten. 

Neben diesen beiden grundsätzlichen Einstellungen findet 
man zusätzlich noch folgende Extras. 


— PAINTER (Zeichenprogramm) 

— SHAPES (der SHAPER erfordert den PAINTER) 
— STRINGS (benötigen die SHAPES) 

— TURTLE (Turtle Grafik 

Painter 


Per Tastatur-Steuerung kann ein einzelner Punkt auf dem 
Bildschirm bewegt werden und Linien zeichnen oder 
löschen. Der Aufruf erfolgt mit »x y PAINT«, worauf der »Zei- 
chenstift« bei (x,y) erscheint. RETURN beendet den Zeichen- 
vorgang, aber die letzten Zeichenkoordinaten verbleiben auf 
dem Stack. So kann man entweder mit UNPLOT den letzten 
Zeichenpunkt löschen oder irgendwelche Zwischenrech- 
nungen, Farbänderungen etc. vornehmen und den PAINTER 
erneut mit PAINT aufrufen. Es wird immer an der letzen Stelle 
weitergezeichnet. 

Zur Steuerung folgende Details: 

- Farbeinstellung: Funktionstasten fi, f3, f5, f7 

- Pen-Up/Pen-Down: G 

- Bewegen des Zeichenpunktes in acht Himmelsrichtungen: 
RTYFHVB,N 


Shapes 

Ein Shape ist eine x mal y Punktmatrix, wobei x ein Vielfa- 
ches von 8 ausmacht. Ein 3 x 21-Shape besteht demnach 
aus 24 x 21 Punkten, hat also die Größe eines Sprites. 
SHAPE ist eine Compiler-Erweiterung, die beliebig dimensio- 
nierte Shapes erzeugt. Der Aufruf »x y SHAPE name« defi- 
niert ein x mal y„-SHAPE genannt »name«. Die Eingabe dieses 
Namens bewirkt dann stets den Aufruf. 
3 21 SHAPE PETRA (definiert PETRA) 


PETRA ?S (zeigt PETRAs Datas an) 
PETRA CLEAR (1öscht PETRA) 

PETRA ?S 

HION 


PETRA SHAPER (zeichnet Rahmen um PETRA und 
aktiviert den Painter) 

PETRA 100 100 PUT (zeichnet PETRA) 
PEIRA 110 110 PUT 
HIOFF 

Anstelle von »name« kann auch »n SPRITE« stehen, wobei 
n(O=sn<=[7) sich auf das Sprite mit der Nummer n bezieht. 
Zuvor aber sollten alle Sprite-Pointer mit !'POINTER einmal 
gesetzt worden sein. 


Die Shapes (beziehungsweise Sprites) lassen sich mit 














»name SHAPEWRITE« unter dem mit SEQ definierten Namen 
als sequentielles File ablegen. Ein Beispiel: 

SEQ GIRL 

PETRA SHAPEWRITE (legt ein sequentielles File 
namens GIRL an, dessen 
Punktemuster PETRA entspricht) 

Wird im Multi-Color-Modus gearbeitet, sollten Sie mög- 
lichst MPUT anstatt PUT und MSHAPER statt SHAPER ver- 
wenden. 

Strings 

Diese Anweisung stellt ein kleines String-Paket dar und 
zählt ebenfalls zu den Compiler-Erweiterungen. Strings sind 
wie Variable vor Benutzung zu definieren, also »name«. Ihnen 
stehen dann zwei Eingabevarianten frei: »name INPUT« ent- 
spricht in Basic »GETA« oder »name =$ text«, das 
»A$= "text”« gleichkommt. Die Ausgabe erfolgt mit »name« 
(Arbeitsbildschirm) oder »name x y PUT$« (Grafikseite). 

»n CHR« verhält sich wie ein 1 x 8-Shape, dessen Punkte- 
muster dem Zeichen mit dem Bildschirm-Code n entspricht. 
Turtle 

Die Turtle-Grafik baut auf dem Hires- und Multi-Color-Paket 
auf und umfaßt alle Grafikbefehle des Commodore-Logo. Es 
beansprucht lediglich 456 Byte (!), was die Leistungsfähig- 
keit von Forth gut illustriert. Die Koordinaten der Turtle stehen 
immer als oberste Zahlen auf dem Stack (Achtung!) , also die 
Richtung der Schildkröte in der Variablen HEADING. Bei der 
Übertragung von Logo-Programmen muß die UPN von Forth 
beachtet werden. Statt »FORWARD 10« erwartet Forth die 10 
auf dem Stack, also »10 FORWARD«. 

Der Punkt (0,0) liegt wie gewohntin derlinken oberen Ecke 
und nicht, wie bei den meisten Logo-Versionen, in der 
Bildschirmmitte. Dies kann der Benutzer durch ». MOVE 
LFORN. . .;« und entsprechende Definition von LFORN nach 
Bedarf ändern. 

Alle Turtle-Befehle können natürlich wie bei Logo abge- 
kürzt werden. Sie schreiben dann statt »10 FORWARD: ein- 
fach »10 FD« und so fort. Die Turtle sollte sich nicht mehr als 
30000 Punkte in jeder Richtung vorwärts bewegen (2-Byte- 
Arithmetik). Der Befehl TURTLE initialisiert die Schildkröte 
und das Farb-RAM, löscht die Grafikseite und sollte nur dann 
aufgerufen werden, wenn man sich das HION ersparen will - 
also nicht von der Grafikseite aus. Ein Beispielprogramm: 

: LINIE 50 FD 90 RT ; 
: QUADRAT LINIE LINIE LINIE LINIE 
: ROSETTE 36 O DO QUADRAT 10 RT 12 FD LOOP ; 


TURTLE ROSETTE i 
Soweit der allgemeine Überblick über die einzelnen, im 
Turtle-Forth enthaltenen Programm-Pakete. 


Die Sereens von Turtle-Forth 


SCR # 1: nicht verwendet. 

SCR#2 bis 4: Lade-Screens. SCR #2 lädt die normale 
Hires-Grafik, wobei die Befehle PLOT und LINK wahlweise als 
Primitive (SCR #70 bis 77) oder als High-Level (SCR # 12 
bis 13 und 20) definiert werden - je nachdem wie die Klam- 
mern in SCR #2 stehen. 

SCR #3 lädt die Multi-Color-Grafik, bei der sowohl der nor- 
male als auch der Multi-Color-Modus zur Auswahl stehen 
kann. Die Umschaltung zwischen den beiden Modi erfolgt Mit 
den Wörtern MON beziehungsweise MOÖFF. Zu beachten ist, 
daß der Dictionary-Pointer zwischendurch auf 16384 hoch- 
gesetzt wird, um 8 KByte Platz für die Bitmap zu schaffen 
(siehe rechts). SCR # 4 lädt die Extras, die natürlich auch ein- 
zeln zu verwenden sind. 

SCR #5 bis 9: nicht verwendet. 

SCR #10 bis 11: Diese beiden Screens enthalten die 
Installation der hochauflösenden Grafik und müssen dem 


5 In Ä ei 2 




















Computertyp angepaßt werden. Die hier vorgestellten Wörter 
gelten für den Commodore 64. 

Zunächst werden 1000 Byte Platz geschaffen, um den 
Bildschirm zwischenzuspeichern. Das bezweckt, daß Sie 
auch bei eingeschalteter Hires-Grafik weiterhin alle Befehle 
im Direktmodus eingeben können. SCREENSWAP besorgt 
die Speicherverschiebung und benutzt das Wort NSWAP 
(adr 1 adr 2 n - ), welches n Byte zwischen den Adressen 
adr, und adr, austauscht. SCRON beziehungsweise 
SCROFF schalten den Videochip ein und aus, um einen Sau- 
beren Übergang beim Einschalten der Grafik zu erzielen. 

HION und HIOFF besorgen die Umschaltung auf hochauf- 
lösende Grafik. Falls Sie mit einem anderen Computer als 
dem C64 arbeiten, müssen hier natürlich andere »Pokes« 
stehen, die Sie dem Benutzerhandbuch entnehmen können. 

Falls die Hires eingeschaltet ist, legt HION? ein Flag 
(ungleich Null) auf den Stack, ansonsten eine Null. SCREEN 
teilt dem Bildschirmeditor des Betriebssystems mit, wo der 


FORTH 


Screen 


HION 1. Bildschirm aus 
2. Bitmapping ein 
3. SCREENSWAP 
4. Bild.-Editor Reg. 648 
5, Bildschirm ein 


SCRON (53285)or16 
SCROFF (53265)and239 
HION (53272)or8 
(53265)or32 
HIOFF  (53272)and247 
(53265)and223 


Die Speicherplatzaufteilung des Grafik-Pakets beim C 64 
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Eingabe-Bildschirm liegt. Bei ausgeschalteter Hires befindet 
er sich ab Register 1024 (also Page 4), bei eingeschalteter 
Hires, also nach SCREENSWAP ab Register 4096 (also 
Page 16). 

Bei Forth-Programmen empfiehlt es sich, Wort für Wort ein- 
zugeben und auszutesten. Dann weiß man nämlich sicher, wo 
man steht und spart sich viel Ärger beim Fehlersuchen. Sie 
kennen nun alle Wörter, um mit der hochauflösenden Grafik 
auch umzugehen. 

SCR #12 bis 13: Mit PLOT und UNPLOT setzen oder 
löschen Sie die einzelnen Punkte. -PLOT bewirkt PLOT oder 
UNPLOT je nach Verhältnis der Variablen VPLOT und 
VBREAK. Es wird von LINK benutzt. Dadurch ist auch 
UNLINK einfach als Spezialfall von LINK zu definieren und 
zudem lassen sich alle Linien auch unterbrochen (BREAK) 
darstellen. - 

ADR bewirkt die Adreß-Umrechnung von X/Y-Koordinaten 
in die Registeradresse der Bitmap. 

SCR # 14 bis 15: Bevor wir mit der Hires (CIRCLE) fortfah- 
ren, wollen wir die Multi-Color-Grafik installieren. SCR # 14 
und 15 entsprechen bis auf kleine Details SCR # 10 und 11. 

SCR # 16 bis 19: Hier wirkt eine trickreiche Programmier- 
Technik. Damit sowohl die Arbeit mit normaler Hires als auch 
mit Multi-Color-Hires möglich ist, sind die meisten Wörter 
zweimal zu definieren. Um den gleichen Namen wieder zu 
verwenden, werden die Wörter vektoriell ausgeführt. 

Zum Beispiel PLOT. Es führt das Wort aus (EXECUTE), das 
in der Variablen 'PLOT steht. Dort befindet sich im normalen 
Hires-Modus die Code-Feld-Adresse (CFA) von PLOT,H im 
Multi-Color-Modus dagegen die CFA von PLOT,M. Das Ein- 
beziehungsweise Ausschalten mit MON und MOFF ändert 
also lediglich die Vektoren 'PLOT 'ADR etc. ab. MCON und 
MCOFF bewirken dabei die eigentlichen »Pokes«, um den 
entsprechende Grafik-Modus einzuschalten. 


2DROP (nı Da ) 


Drop Drop 
3DROP (.ny n2n3 - ) 


Drop 


Drop 


Drop 


2DUP (nn -nınanı n9 ) 
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SCR #20: Auf dem PLOT-Befehl aufbauend zeichnen wir 
jetzt eine Gerade, das heißt, alle Punkte zwischen zwei Koor- 
dinaten. LINK verwendet, je nachdem, ob die Steigung der 
Geraden mehr als 45 Grad beträgt, LINX oder LINY. Nun gibt 
auch BREAK einen einleuchtenden Sinn. 

SCR # 21 bis 23: Um einen Kreis zu zeichnen, benötigen 
wir eine Sinus- oder Cosinus-Funktion. Das scheint schwie- 
rig, da Forth doch keine Fließkommazahlen kennt. 

Wir erzeugen uns jedoch einfach Grad für Grad eine Liste 
der Sinuswerte. (Wegen der Beziehung cos «a = sin (90-«) 
kann man sich eine Cosinus-Liste sparen.) Das entschei- 
dende Wort ist nun CIRC. Es berechnet aus dem Winkel a die 
Koordinaten x und y unter Benutzung des Radius, der in der 
Variablen RAD stehen soll. ARC zeichnet dann einen Kreis- 
bogen, wobei die mit CIRC gewonnenen Koordinaten mit 
dem Quotienten EPS/100 multipliziert werden, so daß sich 
die Kreise stauchen und dehnen lassen. EPSist zu 100 initia- 
lisiert. Es entstehen also wirklich Kreise, solange man die 
Exzentrität nicht mit EXCENTER ändert. CIRCLE ist dann nur 
noch ein Spezialfall von ARC. 

SCR#24: SCR#24 demonstriert schön die Forth- 
Philosophie: NGON zeichnet offene, POLYGON geschlos- 
sene Kurvenzüge. Beide benutzen dazu ein Wort namens 
GON. TRIC und REG, also Drei- und Vierecke - Spezialfälle 
geschlossener Kurven - arbeiten also mit POLYGON. QUA- 
DRAT wiederum ist ein Sonderfall von REC. 

SCR # 25 bis 27: Hier wird das Wort SYS (ax yadr-axy) 
benötigt, das nicht dem FIG-Wortschatz entstammt. Die FIG- 
Definition eines solchen Wortes findet sich im Texteinschub 
Einbinden von Betriebssystem-Routinen« SF ist eine 
Stringvariable, die mit SEO eingelesen und mit .SEQ ausge- 
geben wird. 

SWARITE ruft einige Betriebssystem-Routinen zur sequen- 
tiellen Datenspeicherung auf: 


| Definition und Wirkung der verwendeten Nicht-FIG-Wörter 


over over 


2SWAP (nı nanyny - na n4 Din) 


n 
Tu 
>R ROT ROT R> ROT ROT 


: SYSTEM ; 
: 2DROP DROP DROP ; 
: 3DROP DROP DROP DROP ; 
: 2DUP OVER OVER ; 
: 2SWAP >R ROT ROT R> ROT ROT; 
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SYSTEM aktiviert bei HES-FORTH ein Vokabular, 
welches das Wort SYS enthält. Wie SYS 
definiert werden kann, zeigt der 
Texteinachub über Betriebasysten-Routinen. 


























$ FFBD Setnam 
$ FFBA Setlfs 
$ FFCO Open 

$ FFC9 _CHKOUT 
SREAD ruft auf: 
$ FFBD Setnam 
$ FFBA Setlfs 
$ FFCO Open 

$ FFC6 CHKIN 
SCLOSE ruft auf: 
$ FFC3 Close 
$ FFCC  KCirchn 


So lassen sich einzelne Bytes (TO FROM) und ganze Spei- 
cherbereiche (TOS FROMS) auf Diskette sequentiell spei- 
chern. Diese Routinen sind Commodore-spezifisch und sind 
auf anderen Computern unbrauchbar. Die Befehle sind aber 
sicherlich für viele C64-Forth-Programme äußerst nützlich. 

SCR # 28: HIWRITE und HIREAD benutzen nun die Fähig- 
keit zu sequentieller Datenspeicherung, um Grafiken zu spei- 
chern und wiederzulesen. Folgende Adreßbereiche können 
bearbeitet werden.: 

1. 8 KByte Bitmap (8192 bis 16383) 

2. Hintergrund (53281) 

3. Bildschirm (1024 bis 2023 beziehungsweise 4096 bis 
5095) 

4. Farbspeicher (55296 bis 56295) 


SCR # 29: nicht verwendet. 

SCR #30 bis 32: Painter-Package (tastaturgesteuertes 
Zeichenprogramm). 

SCR #33 bis 39: nicht verwendet. 

SCR # 40 bis 42: Shape-Package (Teil 1). 

SCR #43 bis 44: nicht verwendet. 

SCR #45 bis 46: Shape-Package (Teil 2). 

SCR #47 bis 49: nicht verwendet. 

SCR # 50: String-Package, grundsätzliche Definitionen. 

SCR # 51 bis 54: nicht verwendet. 

SCR # 55 bis 57: String-Package, zusätzliche Funktionen. 

SCR #58 bis 59: nicht verwendet. 

SCR # 60 bis 61: Turtie-Package, stellt in nur zwei Screens 
alle für die Turtle-Grafik notwendigen Befehle zusammen. 

SCR #62 bis 69: nicht verwendet. 

SCR # 70 bis 77: Nun lernen Sie die Wörter PLOT und LINK 
auch als Primitive (für C 64) kennen. Dazu benötigen Sie das 
Assembler-Vokabular Ihres FIG-Forth und ein ganzes Stück 
Arbeit, um die Screens einzugeben. Dafür haben Sie dann 
aber auch einen sehr schnellen LINK-Algorithmus. 

XFORM und YFORM passen die Koordinaten an, die 
»außerhalb« liegen, das heißt, die Werte O > x > 319 oder 
0 >y2> 199, so daßLinien, die auf einer Seite herauslaufen, 
auf der anderen wieder auftauchen. (»Wrap-Around«.) Der 
fortgeschrittene Programmierer kann sich diese Wörter auch 
so abändern, daß die Linie am Rand einfach abbricht, also 
einen maximalen Wert nicht überschreitet (»Clippinge). 
Bemerkenswert ist vielleicht, daß UNLINK den Code von 
LINK abändert, indem es die Adresse von UNPLOTCODE in 
den Code-Body von PLOTIT schreibt und dann einfach LINK 
aufruft. Dies ist eine Programmiertechnik, die sehr mit Vor- 
sicht zu genießen ist! 

Eine Liste aller Befehle mit ihren Wirkungen ist in der 
Tabelle (rechts) enthalten. 

Aufbauend auf dem Grundprogramm können Sie eine Viel- 
zahl eigener Programme verwirklichen. Als Anregung einige 
Beispiele wie das tastaturgesteuerte Zeichenprogramm 
(PAINTER), das Speichern und Kopieren von beliebigen Bild- 
schirmausschnitten (SHAPES), der Sprite-Generator 


(SHAPER) oder die Logo entlehnte Schildkröte (TURTLE). 

Schließlich können Sie auch Texte (STRINGs) aus dem 

Character-ROM auslesen und in die HiRes einbringen. 
(Andreas Carl/ev) 
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(1) HiRes 
HIBASE 
SCROFF 
SCRON 
HION 
HIOFF 
HION? 
HFILL 
HCLEAR 
HCOL 
CFILL 


ADR 
PLOT 
UNPLOT 
?PLOT 
XFORM 


LINK 
UNLINK 


BREAK 
NGON 
POLYGON 


TRIC 
REC 


QUADRAT 
CIRCLE 


ARC 


ANGL 
EXCENTER 


SEQ name 


.SEQ 
SWRITE 
SREAD 
SCLOSE 
T0 

TOS 


FROM 
FROMS 


HIWRITE 


HIREAD 


(xoyo Xıyı -) 
(xoyo Xıyı -) 


(n -) 


(xoyo- -Xn-1- »-Jn-1 
n-) 


Adresse des ersten Bytes 

ausschalten des Video-Chip 

einschalten des Video-Chip 

umschalten auf Grafikbildschirm 

umschalten auf Arbeitsbildschirm 
Grafikbildschirm eingeschaltet? 

füllt die Grafikseite mit dem Byte n 

löscht den Grafikbildschirm 

wählt Zeichenfarbe 0 <n< 15 

füllt den Farbspeicher mit der Hintergrundfarbe 
b und der Zeichenfarbe c 

Wandelt die Koordinaten x, y in die Bitmap- 
Adresse a um 

setzt Zeichenpunkt 

löscht Zeichenpunkt 

Zeichenpunkt gesetzt? 

Handler für Koordinaten, die »außerhalb« 
liegen; 

verbindet zwei Punkte Po und P; 

löscht die Verbindungslinie zweier Punkte Po 
und Pı 

definiert die Länge der Teile von gebrochenen 
Linien. Ist zun = 30000 initialisiert 


verbindet n Punkte Po bis Pn—ı 


(xoY0.» »Xn-ıY9n-ı n-)verbindet n Punkte Po bis Pn—ı zu einem 


(xoyo Xıyı X2Y2 -) 
(xoyo ab—) 


(xoyo a -) 
(xoyorde-) 


(xoyo T &o aı da-) 


Xoyora-) 


(n -) 


m 


(- 


SHAPEWRITE (-) 


SHAPEREAD (-) 


(2) Multi-Color-Grafik 
alle Befehle wie (1) und zusätzlich: 


MON 
MOFF 
MFLAG 
CFILL 
MCOL 
HCOL 


(-) 

2) 

= f) 

b CıC2C3 -) 
CıC2C3 -) 


( 
( 
( 
( 
(n -) 


geschlossenen Kurvenzug 

zeichnet ein Dreieck PoPıP>2 

zeichnet ein Rechteck mit der Länge und der 
Höhe b 

zeichnet ein Quadrat mit der Kantenlänge a 
zeichnet einen Kreis um den Mittelpunkt Po mit 
dem Radius r in Schritten von je d a Grad 
zeichnet einen Teilkreis von ao Grad bis a; 
Grad 

zeichnet Radius eines Kreises zum Winkel « 
bestimmt die Exzentrizität für CIRCLE, ARC 
und ANGL; n= 100 bedeutet r, : r, = 1 

legt Filenamen für folgende Diskettenoperatio- 
nen fest 

zeigt Filenamen an 

öffnet sequeniielles Schreibfile 

öffnet sequeniielles Lesefile 

schließt sequentielles File 

schreibt Byte b in offenes File 

schreibt n Bytes ab der Adresse a in offenes 
File 

liest Byte b ein 

liest n Bytes ein und speichert sie ab der 
Adresse a 

schreibt 8 KByte HiRes plus 3 KByte Farbinfor- 
mation in sequentielles File 

liest HiResgrafik aus sequentiellem File ein 
speichert Shapes oder Sprites in sequentielles 
File 

liest Shape oder Sprite 


schaltet auf Multi-Color-Mode um 

schaltet auf Normal-Mode um 
Multi-Color-Mode eingeschaltet? 

füllt die Farbspeicher 

wählt die drei Zeichenfarben (0 < c <= 15) 
wählt aktuelle Farbe für PLOT etc. (n = 1,2,3) 


Die Befehle des Grafik-Pakets 
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Listing »Turtie-Graflk« In Forth (Fortsetzung) 
SCR ® 18 7 >R >R RAD I CY I CX I R> R> SWAP 
0 t CONT. > & DO 1 CIRC CX a + SWAP EPS CY @ » R> DA @ +» >R 
1° ADR,HN CFA VARIABLE 'ADR 9 1 CIRC CX @ +» SWAP EPS CY @ +» R> DA A - >R 
2 * ?PLOT,H CFA VARIABLE ‘?PLOT 10 LINK DA @ +LOOP ; 
a *° PLOT,H CFA VARIABLE ‘PLOT 11 ı CIRCLE O 360 ROT ARC ı 
4 _° UNPLOT,H CFA VARIABLE "UNPLOT 12 ı ANGL >R RAD I 2DUP R> CIRC >R » SWAP R> + SWAP LINK | 
Ss  * HCOL,H CFA VARIABLE °HCOL 13 
6 ° CFILL,H CFA VARIABLE °CFILL 14 
7 15 
8 ı ADR 'ADR MR EXECUTE ; SCR # 24 
9 ı ?PLOT "?PLOT @ EXECUTE ; ) t POLYGON ) 
10 ı PLOT "PLOT @ EXECUTE ı 2 
11 : UNPLOT ‘’UNPLOT @ EXECUTE ; 2 O VARIABLE RB O VARIABLE L 
12 ı -PLOT VPLOT @ VBREAK @ / 2 MOD 7 
193 O= IF PLOT ELSE UNPLOT ENDIF VPLOT DuUP @ i+ SWAP | ; 4 ı GON 1 DO >R >R 2DUP R> R> 2SWAP LINK LOOP ; 
14 ı HCOL ’HCOL @ EXECUTE ı S ı NGON GON 2DROP ; 
15 ı CFILL ’CFILL @ EXECUTE ; a 6 ı POLYGON ROT ROT >R DUP I SWAP >R ROT GON R> R> LINK ; 
7 ı TRIC 3 POLYGON ; 
SCR @ 19 8 ı REEL -Bıl -Lı 
0 t CONT. ) q 2DUP L @ ROT + SWAP 
1 10 2DUP BG + 
2 11 2DUP L @ ROT SWAP - SWAP 
3 ı MCON 33270 Ca 16 OR 53270 CI ; 12 2Dup Ba - 
4 ı NCOFF 53270 Ca 239 AND 33270 Ci ; 13 S NGON ; 
3 14 ı QUADRAT DUP REC ; 
6 ı MON MCON ' PLOT,M CFA “PLOT I ° UNPLOT,N CFA "UNPLOT I ıs 
7 " HCOL,M CFA °HCOL I ° CFILL,M CFA 'CFILL 1 
8 ' ADR,M CFA ‘ADR 1 ' ?PLOT,M CFA '?PLOT | SCR 0 25 
g t ' NFLAG I 0 ( SEQUENTIELLE FILES ) 
10 ı MOFF NCOFF ‘ PLOT,HK CFA "PLOT I ° UNPLOT,H CFA "'UNPLOT | ı 
11 ° HCOI.,H CFA °HCOL I ° CFILL,H CFA °CFILL 1 2 0 VARIABLE SF 20 ALLOT 
12 ' ADR,H CFA ‘ADR I ° ?PLOT,H CFA °’?PLOT I 3 
13 a’ MFLAG I 3 4 ı SEQ 34 WORD HERE SF 20 CMOVE ı 
14 5 ı .SEQ SF COUNT TYPE ; 
15 6 
7 ı NAN,S,X SF COUNT » DUP ASCII „ SWAP CI 
SCR ® 20 [} 1* DUP ASCII S SWAP Ci 
( LINK D qg le DUP ASCII ,„ SWAP CI 


10 le cı 
0 VARIABLE DX_ O VARIABLE DY_ O VARIABLE NSTEP ı SF DUP Ca 4 + SWAP CI ; 
12 : MAM,S,W ASCII W NAN,S,N 3 


c 
0 
l 
2 
3 
4 ı TO DUP O< IF 1 - -1 NSTEP 1 ELSE I + 1 NSTEP I ENDIF ; 13 ı NAM,SÄR ASCIT R NAN,S,K ı 
3 

6 

7 

8 

9 


14 > 
ı LINX DO DUP I DY u DX ü 0 / «+ ıs 
ROT DUP I + ROT -PLOT SWAP NSTEP @ »LOOP 2DROP ; 
: LINY DO DUP I DX @ DY @ «/ « en 
ROT DUP I « ROT SWAP -PLOT SWAP NSTEP @ «LOOP 2DROP 2 air 
10 ; 
11 ı LINK INIPLOT ROT >R I - DY 1 SWAP >R I - DX 1 
12 R> R> DX @ ABS DY @ ABS > IF DX @ TO O LINX u te 
1 ELSE SWAP DY @ TO O LINY ENDIF ı 4 ı OFFSPRITE DO1S Ca SPSAVE CI 0 DOIS CI } 
2 ı UNLINK VBREAK @ >R O VBREAK 1 LINK R> VAREAK 1 | RSTEBRTTe era dee, 
en 7 ı SWRITE OFFSPRITE CR »* WRITING * .SEO 
2 ee, 8 SYSTEM NAN,S,u SF COUNT SWAP 100 /MOD FFBD SYS 
1 Q VARIABLE SINA 173 , 249 , 523 , 698 ,„ 872 , 1043 „ 1219 ,„ 1392 . Pa ee ne 
2 , 1564 „ 1763 , 1908 „ 2079 , 2250 „ 2419 ,„ 2308 „ 2756 „ 2924 Ri ee ee 
3, 2090 , 2256 „ 3420 , 3584 „ 3946 ,„ 2907 , 4067 „ 4226 „ 4384 = 1 
En es De a a a ee 13 ı TO SYSTEN 0 0 FFD2 SYS 2DROP | 
‘ % 4 “ ‘ ” ‘ » a 
6 , 701 , 7193, 714 ,„ 71 „ 7947 , 7660 , 7771 , 7800 „ 7986 14 ı TOS O0 DO DUP IT + Ca TO LOOP DROP ; u 
7 , 8090 , 8192 , 8290 „ 8387 , 8480 ,„ 8572 , 8660 , 8746 „ 8829 15 
8 , 8910 , 8988 , 63 „ 9138 „ 9208 , 9272 , 9336 „ 9397 „ 9435 
9 „ 9S1l , 9563 , 9613 , 96539 „ 9703 , 9744 „ 9781 ,„ Bl6 ,„ 9848 SCR 0 27 
10 , 9877 , 9902 ,„ 9923 , 9943 , 9962 , 9976 , 9986 ,„ 9994 , 9998 0 1 coNT. I 
ı 
11 , 10000 , : 
12 
3 ı SREAD OFFSPRITE CR ." READING " .SEO 
PAS Ta 2ER RB 100S0ZSWAR. 4 SYSTEM NAN,S,R SF COUNT SWAP 100 /NOD FFED SYS 
14 1SEDSBSSOn ZWAR SINGE 5 3DROP SF DUP Ca 4 - SWAP CI 
12 6 2 8 2 FFBA SYS FFCO SYS 3DROP 
7 0 2 0 FFC6& SYS DROP ; 
SCR 6 22 5 
n t CIRCLE 9 ı SCLOSE QLDSPRITE SYSTEM 2 0 O FFCI SYS FFCC SYS 3DROP ; 
2 0 VARIABLE DA O VARIABLE RAD 100 VARIABLE EXC s nee ren GOlOrFeEr re nnars 
- 12 ı FRONS O0 DO FRON OVER I «+ Ci LOOP DROP ; 
4 ı CNORM BEGIN DUP_ O0 < WHILE 360 + REPEAT = 
3 BEGIN DUP 260 > WHILE 360 - REPEAT ı “ EN 
7 ı SIM CNORN DUP DUP ABS / SWAP ABS DUP 90 < IF SIM@ ELSE > 
8 DUP 180 < IF 180 SWAP - SINe@ ELSE SCR & 28 
9 DUP 270 < IF 180 - SIN@ -i «= ELSE 0 C WRITE/READ 
10 360 SWAP - SIN@ -1 « ENDIF ENDIF ENDIF ROT e ; 1 
11 ı COS 90 SWAP - SIN ı 2 
12 3 ı HIWRITE SWRITE 8192 DUP TOS 33281 Ca yo 
13 ı EPS EXC @ 100 ®/ ; a HION? IF 1024 ELSE 4096 ENDIF 1000 TOS 
14 ı EXCENTER EXC I ; >. 5 53296 1000 TOS SCLOSE ; 
15 6 ı HIREAD SREAD 8192 DUP FRONS FRON 53281 Cı 
g HION! IF 1024 ELSE 4096 ENDIF 1000 FRONS 
SCR @ 23 8 53296 1000 FRONS SCLOSE ; 
0 t CcaNT. ı q 
10 ı SHAPENRITE SYWRITE = TOS SCLOSE ; 
0 VARIABLE CX DO VARIABLE CY 11 ı SHAPEREAD SREAD = FRONS SCLOSE ; 


De De 
2ON 


1 
2 
3 
4 ı CIRC RAD @ OVER SIN SWAP »/ RAD @ ROT COS SWAP ®/ ı 
5 
6 


ı ARC DA I 2DUP > IF DA DUP @ -1 « SWAP ı ENDIF 13 
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SCR # 30 
0 t PAINTER ) 


l O VARIABLE OLD 
2 ı REPON 128 630 Ci! ; 
3 ı REPOFF Q 650 CI ; 
4 ı KILL 2DUP UNPLOT ; 
5 ı PLOTOVER 2DUP ADR OLD @ SWAP Ci 
6 ı DRAW ; 
7 * DRAW CFA VARIABLE LASTVECTOR 
a ’ PLOTOVER CFA VARIABLE PENMODE 
9 ı UP/DOWN PENMODE @ LASTVECTOR @ PENMODE I LASTVECTOR | ; 
10 : ?DOWN ° PLOTOVER CFA PENMODE @ = ; 
11 :ı SETMODUS ?DOWN IF LASTVECTOR I ELSE PENMODE I ENDIF ; 
12 ı DODRAW ° DRAW CFaA SETMODUS ; 
13 ı DOKILL ° KILL CFA SETMODUS ; 
14 ı LASTPLOT >R LASTVECTOR @ EXECUTE R> ; 
15 ı NEXTPLOT 2DUP ADR Ca OLD ! 2DUP PLOT ; .-> 
SCR 4 31 
0 t CONT. ) 
l ı SLOPE BEGIN KEY DUP 13 «= O= WHILE LASTPLOT 
2 DUP 72 = IF >R SWAP 1+ SWAP R> ENDIF 
3 DUP 78 = IF >R 1» SWAP 1+ SWAP R> ENDIF 
8 DUP 66 = IF >R 1» R> ENDIF 
5 DUP 86 = IF >R 1» SWAP 1 - SWAP R> ENDIF 
& DUP 70 = IF >R SWAP 1 - SWAP R> ENDIF 
7 DUP 82 = IF >R 1 - SWAP 1 - SWAP R> ENDIF 
8 DUP 84 = IF >R 1 - R> ENDIF 
9 DUP 89 = IF >R 1 - SWAP 1» SWAP R> ENDIF 
10 DUP 71 » IF UP/DOWN ENDIF 
11 DUP 133 = IF 3 HCOL DODRAW ENDIF 
12 DUP 134 = IF 2 HCOL DODRAW ENDIF 
13 DUP 135 = IF O HCOL DODRAW ENDIF 
14 136 = IF DOKILL ENDIF 
15 NEXTPLOT REPEAT DROP ; --> 
SCR # 32 
0 t CONT. ) 
ı 
2 ı PAINT 2DUP PLOT 
3 ' DRAW CFA LASTVECTOR | 
4 ° PLOTOVER CFA PENMODE I 
5 REPON SLOPE REPOFF ; 
6 
7 
& ( RTY Fi 
9 F3 
10 FGH FS 
11 F7 
12 vBN RETURN ) 
13 
14 
15 
SCR # 40 
0 t SHAPES ) 
1 
2 OÖ VARIABLE PARITY 
3 
4 ı SHAPE <BUILDS OVER ,„ DUP ,„ ® ALLOT 
5 DOES> >R R 4 + R @ R> 2 Q@ ; 
& ı CLEAR « O0 DO O QVER I + Cı LOOP DROP ; 
7 ı ?S OVER HERE | » O0 DO I HERE u NOD O= 
8 IF CR ENDIF DUP I +» C@ 4 .R LOOP DROP ; 
9 ı DIN ROT DROP ; 
10 :ı ZAHL? O IN ı TIB @ 10 EXPECT 
11 32 WORD HERE NUMBER DROP ; 
12 ı INPUT OVER PARITY I! «e O DO I PARITY @ MOD O= IF CR ENDIF 
13 ZAHL? OVER I + Ci LOOP DROP , 
14 
15 --> 
SCR 6 41 
0 ( CONT. ) 
l O VARIABLE SX O VARIABLE SY 
2 
3 ı »>BIT 8 0 DO 2 ®e >R I 256 / R> 235 AND LOOP DROP ; 
4 ı aSwWAP 8 Q DO HERE I + Ci LOOP 
5 a 0 DO HERE I + C@ LOOP ; 
& ı PUT SY I SX ı DY ı DX ı 0 SWAP 
7 DX @ DY @ » O0 DO DUP I » Ca >BIT B8SWAP 
8 a oO DO SX a Sy @ ROT 
| IF PLOT ELSE UNPLOT ENDIF 
10 1 SX »+ı LOOP 
11 >R 1» DUP DX @ MOD O= IF 1 SY +1 
12 -8 DX@ «. SX +1 
13 ENDIF R> LOOP 2DROP ı 
14 
13 45 ?LOAD 
SCR # 42 
6) € SHAPER ) 


16 VARIABLE PX 16 VARIABLE PY 


ı FRAME ROT DROP 2+ SWAP 8 «e 2+ SWAP 15 15 2SWAP REC | 


ı 
2 
3 ı 3DUP >R OVER OVER R ROT ROT R> ; 
4 
3 


ı DEFSHAPE OVER HERE I » 16 PX I 15 PY 1 


APR 


BELLE 





6 O DO I HERE @ MOD O=- IF 1 PY +I 16 PX I 

7 ELSE 8 PX +1 ENDIF 

8 Px @ PY @ ADR Ca OVER Ci 1: LOOP DROP ı 
9 : SHAPER HCLEAR 3DUP FRAME 17 17 PAINT 

10 2DROP DEFSHAPE ; 

11 


12 ı SPRITE 2040 + Ca 64 » 3 21 ; 
13 ı IPOINTER a O DO 48 I + 2040 I + Cı LOOP ; 


14 
15 46 ?LOAD 
SCR # 45 
0 t MPUT 
1 
2 ı NPUT SY ı SX ı DY I DX ı 0 SWAP 
3 DX @ DY @ ® O0 DO DUP I + C@ >BIT ASWAP 
4 4 0 DO 2 * «+ DUP 
5 IF HCOL SX @ SY @ PLOT 
& ELSE DROP SX a SY @ UNPLOT ENDIF 
7 1 SX +1 LOOP 
8 >R 1» DUP DX @ MOD O= IF 1 SY +I 
9 -4 DX Q@ » SX e| 
10 ENDIF R> LOOP 2DROP 3; 
11 
12 
13 
14 
13 
SCR # 46 
0 ( NSHAPER ) 
ı 
2 
3 ı MFRANE ROT DROP 2» SWAP 4 «e 2+ SWAP 7 15 2SWAP REC ; 
4 ı DEFMSHAPE OVER HERE I « 16 PX I 15 PY ı 
ä 0 DO I HERE A MOD O= IF 1 PY +1 16 PX I 
6 ELSE a PX +1 ENDIF 
7 PX w PY @ ADR,H C@ OVER Ci i+ LOOP DROP ; 
8 
9 ; MSHAPER HCLEAR 3DUP NFRANE 9 17 PAINT 
10 2DROP DEFNSHAPE ; 
ıl 
12 
13 
14 
15 
SCR # 50 
0 ( STRING-PACKAGE ) 
1 
2: ® <BUILDS 78 ALLOT DOES> ; 
3 
4 : INPUTe QO IN ! TIB @ 80 EXPECT 34 WORD 
5 HERE SWAP 80 CHMOVE ; 
6: »6 34 WORD HERE SWAP 80 CHOVE ; IMMEDIATE 
7 
a: .® COUNT TYPE ; 
9; LEN COUNT SWAP DROP ; 
10 
11 
12 
13 
14 
15 
SCR # 55 
0 Ü GCHAR ) 
ı 
2 CODE GCHAR 254 9 LDA, 56334 AND, 56334 STA, 
3 251 ® LDA, 1 AND, 1 STA, 
4 
3 BOT LDA, N 1 - STA, 
6 BOT 1» LDA, N STA, 
7 0O ® LDA, BOT 1» STA, TAY, 
8 N 1 - )Y LDA, BOT STA, 
9 
10 4 6 LDA, 1 ORA, 1 STA, 
11 1 @ LDA, 56334 ORA, 36334 STA, 
12 
13 NEXT JMP, END-CODE 
14 
15 
SCR # 56 
0 ( ASCII-WANDLER | 
1 
2 
3 ı A>S DUP 128 AND IF 127 AND 64 OR ELSE 
4 DUP 64 AND O= IF ELSE 
3 DUP 32 AND IF 95 AND ELSE 
& 63 AND ENDIF ENDIF ENDIF ; 
7 
a 
9 
10 
11 
12 
13 
14 
15 
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SCR 0 57 


0 
ı 
2 
3 
4 
3 ı CHR 
& 
7 
8 
9 


10 

11 : PuTs CHY I CHX ı COUNT O0 DO DUP I + C@ A>S CHR 
12 CHX @ I 8 oe + CHY ® PUT 
13 LOOP DROP ; 

14 

15 
SCR # 60 

0 t TURTLE ) 

i 

2 O VARIABLE HEADING 1 VARIABLE PENSTATE 

3 

4 


t PUT® ) 


53248 CONSTANT CHARBASE 
O VARIABLE CHARACTER 6 ALLOT 


CHARBASE + 


DO DUP I +» @CHAR CHARACTER I + Ci 
LOOP DROP CHARACTER ! A ; 


oo» m 
oO ® 


O VARIABLE CHX O VARIABLE CHY 


5 ı RIGHT HEADING +1 ; 

6 ı LEFT -i « RIGHT ; 

7 ı MOVE 2DUP >R >R 2SWAP R> R> 

8 PENSTATE @ IF LINK ELSE 2DROP 2DROP ENDIF ; 

9 ı FORWARD RAD ı 2DUP HEADING @ 90 - CIRC >R +» SWAP R> * 
10 SWAP MOVE ; 

11 ı BACK 180 RIGHT FORWARD 1BQ LEFT ; 


SCR # 61 
t CONT. ) 


PENDOWN 1 PENSTATE | ; 

PENUP Q PENSTATE I ; 

SETHEADING HEADING I ; 

SETX OVER MOVE ı 

SETY >R OVER R> MOVE ı 

SETXY MOVE ; 

HOME Q SETHEADING 160 100 MOVE , 

TURTLE HCLEAR HION O SETHEADING NFLAG IF 11 1 Q 6 CFILL 
a0 100 ELSE 11 1 CFILL 160 100 ENDIF ; 


me de eb Se be De 
BA ELUN- DDR NDDUBBADN - OD 


ı FD FORWARD ; ı BK BACK ; 
: RT RIGHT ; ı LT LEFT ; 
ı PD PENDOWN ; ı PU PENUP ; 
ı SETH SETHEADING ; 
SCR # 70 
Q ( FORM ) 


l 
2 CODE XFORM BEGIN, SEC, BOT LDA, 64 4 SBC, BOT STA, 


3 BOT 1. LDA, 1 9 SBC, BOT 1+ STA, 
4 O< UNTIL, 
5 BEGIN, CLC, BOT LDA, 64 # ADC, BOT STA, 
6 BOT 1*+ LDA, 1 8 ADC, BOT 1». STA, 
7 O< NOT UNTIL, RTS, END-CODE 
8 
9 CODE YFORM BEGIN, SEC, BOT LDA, 200 ® SBC, BOT STA, 
10 BOT 1» LDA, O # SBC, BOT 1+ STA, 
11 0O< UNTIL, 
12 BEGIN, CLC, BOT LDA, 200 ® ADC, BOT STA, 
13 BOT 1° LDA, O 4 ADC, BOT 1+ STA, 
14 O< NOT UNTIL, RTS, END-CODE 
15 er 
SCR # 71 
0 t QUICK-PLOT ) 


ASSENBLER HEX 


ı 
2 0 VARIABLE X O VARIABLE Y N CONSTANT XL 

3 N 1 ° CONSTANT XH N 2 + CONSTANT SUML N 3 + CONSTANT SUMH 
4 N 1 - CONSTANT FE 

5 CODE PLOTBODY ° YFORNM JSR, INX, INX, ° XFORN JSR, DEX, DEX, 
6 XSAVE STX, BOT LDY, 

7 BOT 2+ LDA, PHA, BOT 3 + LDA, TAX, PLA, 
8 


XL STA, XH STX, TYA, F& 0 AND, FE STA, SUML STA, 


9 0O ® LDA, SUMH STA, SUHL ASL, SUNH ROL, SUNL ASL, 

10 SUMH ROL, CLC, SUML LDA, FE ADC, SUNL STA, SUMH LDA, 
11 0 ® ADC, SUNH STA, SUML ASL, SUMH ROL, SUML ASL, 

12 SUNH ROL, SUML ASL, SUMH ROL, TYA, 7 @ AND, CLC, 

13 SUNL ADC, SUML STA, SUMH LDA, O0 0 ADC, SUMH STA, 

14 CLC, XL LDA, F& #8 AND, SUML ADC, SUML STA, XH LDA, 
15 SUMH ADC, SUMH STA, CLC, O ® LDA, SUML ADC, --> 
SCR # 72 

0 ( CONT. ) 

1 SUNL STA, 20 ® LDA, SUMH ADC, SUMH STA, XL LDA, 7 @ AND, 
2 70 EOR, TAX, 1 & LDA, 

3 BEGIN, .A ASL, DEX, O«< UNTIL, .A ROR, 

4 0 # LDY, RTS, END-CODE 

5 

& CODE PLOTCODE * PLOTBODY JSR, SUML )Y ORA, 

7 SUNL )Y STA, XSAVE LDX, 
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1) INX, INX, INX, INX, RTS, END-CODE 

9 CODE UNPLOTCODE ’ PLOTBODY JSR, FF & EOR, SUML )Y AND, 

10 SUNL )Y STA, XSAVE LDX, INX, INX, INX, INX, RTS, END-CODE 
ı1 CODE ?PLOT ° PLOTBODY JSR, SUML )Y AND, XSAVE LDX, 

12 INX, INX, BOT STA, O @ LDA, BOT 1° STA, NEXT JMP, END-CODE 
13 CODE ADR ' PLOTBODY JSR, XSAVE LDX, INX, INX, 


14 SUML LDA, BOT STA, SUMH LDA, BOT 1+ STA, NEXT JMNP, 
15 END-CODE --> 
SCR # 73 

0 ( CONT. ) 

i 

2 CODE (PLOT) ° PLOTCODE JSR, SEC, SUMH LDA, 20 ®@ SBC, SUNH STA, 
3 SUML LDA, F& ® AND, SUNL STA, CLC, 

4 SUNMH ROR, SUML ROR, SUMH ROR, SUML ROR, SUMH ROR, 

5 SUML ROR, 4 ® LDA, SUMH ADC, SUMH STA, SUML )Y LDA, OF 6 AND, 
6 SUML )Y STA, COL LDA, .A ASL, .A ASL, .A ASL, .A ASL, SUNL )Y 
7 ORA, SUML )Y STA, RTS, END-CODE 

8 

9 CODE QPLOT ” PLOTCODE JSR, NEXT JMP, END-CODE 


10 CODE UNPLOT ’ UNPLOTCODE JSR, NEXT JNP, END-CODE 
11 CODE PLOT ° (PLOT) JSR, NEXT JMP, END-CODE 


12 

13 ı INIPLOT ; : -PLOT PLOT ; : VBREAK ; : BREAK DROP ; 

14 

15 DECIMAL 
SCR # 74 

0 t QUICK-LINK ) HEX 

1 

2 O VARIABLE XO O VARIABLE YO O VARIABLE Xi Q VARIABLE Yi 
3 O VARIABLE OF O VARIABLE CT DO VARIABLE DX O VARIABLE DY 
4 O VARIABLE IX O VARIABLE IY O VARIABLE AX 0 VARIABLE AY 
5 

6 

7 CODE PLOTIT XSAVE LDX, 

8 YO LDA, BOT STA, YO 1» LDA, BOT 1+ STA, 

9 XO LDA, BOT 2+ STA, XO i1* LDA, BOT 3 + STA, 

10 '* «PLOT) JSR, RTS, END-CODE 

11 

12 

13 

14 -. 

15 
SCR # 75 


0 t CONT. ) 

1 CODE +STEP SEC, OF LDA, DX SBC, OF STA, 

2 DF 1* LDA, DX Le SBC, OF le STA, 

3 AY LDA, O< IF, SEC, XO LDA, 1 0 SBC, XO STA, 

4 XO 1+ LDA, O @ SBC, XO 1» STA, ELSE, 
5 CLC, XO LDA, AY ADC, X0 STA, 

6 XO 1» LDA, O # ADC, XQ Ie+ STA, ENDIF, 
7 IY LDA, O< IF, SEC, YO LDA, ıi @ SBC, YO STA, 

L) YO 1» LDA, O0 ® SBC, YO 1» STA, ELSE, 
9 CLC, Yo LDA, IY ADC, YO STA, 

10 YO 1° LDA, Q @ ADC, YO 1+ STA, ENDIF, 
11 RTS, END-CODE 

12 

13 

14 

15 


ı X<->Y DX a DY a DX I DY ı 
IX @QAY ı IY@ AX I 


oO DUP IX ı IY I ı ..> 

SCR # 76 

0 ( CONT. 

ı CODE LOP 

2 IX LDA, O< IF, SEC, XO LDA, I 0 SBC, XO STA, XO 1» LDA, 
30 s# SBC, XQ 1» STA, ELSE, CLC, X0O ADC, XO STA, XO 1» LDA, 
4 0 ® ADC, XQ 1» STA, ENDIF, 

5 AX LDA, O«< If, SEC, YO LDA, 1 @ SBC, YO STA, YO 1» LDA, 

6 0 @ SBC, YO 1» STA, ELSE, CLC, YO ADC, YO STA, YO 1» LDA, 
70 8 aDC, YO 1» STA, ENDIF, 

8 CLC, OF LDA, DY ADC, OF STA, OF ie LDA, DY 1+ ADC, OF 1» STA, 
9 CT INC, Os IF, CT 1. INC, ENDIF, 


11 OF 1 LDA, DX 1» CHP, CS IF, O= NOT IF, ° +STEP JSR, ELSE, 
12 DX LDA, OF CHP, CS NOT IF, ° +STEP JSR, ENDIF, ENDIF, ENDIF, 
13 * PLOTIT JSR, RTS, END-CODE 


14 -. > 
15 
SCR # 77 

0 t CONT. ) 

1 CODE LINKCODE DEX, DEX. DEX, DEX, XSAVE STX, ‘ PLOTIT JSR, 

2 BEGIN, " LOP JSR, 

3 0 8 LDX, CT 1» LDA, DX 1+ CHP, CS NOT IF, INX, 

4 ELSE, DX LDA, CT CHP, CS IF, INX, ENDIF, ENDIF, 

gZ TXA, O= UNTIL, XSAVE LDX, INX, INX, INX, INX, 

6 NEXT INP, END-CODE 

7 

8 ı LINK Yı I Xı ı YO I XO t O DUP AY I AX 1! 

9 Xl @ XO @ 2DUP > IF 1 IX I ELSE -1 IX 1 SWAP ENDIF - DX I 
10 Yı @a YO @ 2DUP > IF 1 IY I ELSE -ı IY 1 SWAP ENDIF - DY II 
11 DX a DY @ > O= IF X<->Y ENDIF DX @ 2 / OF ! I CT! 

12 LINKCODE ı 

13 ı UNLINK ' UNPLOTCODE ' PLOTIT 17 « 1 LINK 

14 ' (PLOT) ‘ PLOTIT 17 + I ; DECINAL 
15 
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x-pert ist ein Mini-Experten-System, das bis zu 
2512 Menü- oder Antwort-Blöcke mit 31 Byte Text 
und bis zu je zehn Menü-Verzweigungen zuläßt. Es 
bestehen Möglichkeiten zur Erweiterung, Ände- 
rung, zum Löschen und zur Mehrfachnutzung von 
Menüs und Antworten. Der Editor ist auch direkt 
einsetzbar. 


er Versuch, ein Experten-System auf einem Heim- 

computer zurealisieren, scheitert meist an der gerin- 

gen Speicherkapazität oder an den extrem langen 
Reaktionszeiten des Diskettenlaufwerks beim Suchen von 
Datensätzen. Einen vertretbaren Kompromiß gestattet die 
Programmiersprache Forth, die durch ihr virtuelles Speicher- 
konzept fast die gesamte Diskette als RAM nutzt. Ein reines 
Assembler-Programm erlaubt zwar kürzere Verarbeitungs- 
zeiten, hält das System aber nicht für Modifikationen und 
Erweiterungen offen. 

In der hier vorgeschlagenen Lösung für den Commodore 
64, enthält jeder Datenblock 31 Zeichen Text undbis zuzehn 
Verzweigungen. Eine Modifikation des Forth-Wortes »r/w« 
(scr # 8,line# 1) erlaubt es, maximal 162 screens auf eine 
Diskette zu schreiben. So stehen insgesamt 2512 Daten- 
blöcke zur Verfügung. Um einen direkten Einblick und somit 
auch direkte Änderungsmöglichkeiten zu schaffen, werden 
alle Daten im ASCII-Code gespeichert, wobei die Nummern 
der Folgeblöcke als hexadezimale Zahlen erscheinen. So 
müssen auch alle Eingaben im hexadezimalen Modus erfol- 
gen. 

Neben den üblichen Variationen einen Entscheidungs- 
baum aufzubauen und zu verändern, erlaubt das vorgestellte 
System bestehende Menüs oder Antworten in neue Menüs 
einzufügen. Das führt zwar zu einer Platzersparnis, doch 
wächst damit die Gefahr der Verfilzung der Äste oder es führt 
zu Endlosschleifen bei der Darstellung der Baumstruktur. 

Im folgenden sollen die neuen, von unserem Mini-System 
angebotenen Wörter erklärt werden (vergleiche Listing 1). 
System-Start 

System mit »7 load« von der Programm-Diskette laden. 
Danach wird eine Daten-Diskette angefordert. 

Oder »x-pert« (== > ) eingeben (nach erstmaliger Compi- 
lation). Das System wird neu gestartet, ohne eventuell neue 
oder veränderte Daten aus dem Disk-Buffer zu übernehmen. 
Beenden der Arbeit 

Nach jeder Sicherung der Daten mit »save« oder »start« 
kann die Bearbeitung einer Diskette beziehungsweise einer 
Datei abgeschlossen werden. Das Leuchten der LED am 
Laufwerk ist ohne Bedeutung. Ein Abschluß mit »done« ist 
ebenfalls möglich. 

Zwischensicherung ohne Protokollveränderung 
save => 

Die Datenblöcke im Disketten-Puffer werden auf die Dis- 
kette geschrieben und die Bearbeitung vor dem aktuellen 
Menü fortgesetzt. 
done ( ==>) 

Hat die gleiche Wirkung wie »save«, ruft jedoch kein neues 
Menü auf. 

Zwischensicherung mit Protokollneustart 
start. | == 
Die Datenblöcke werden im Disketten-Puffer auf die Dis- 





x-pert, ein Mini- 
Experten-System in Forth 











kette geschrieben und die Bearbeitung mit neuer Protokollie- 
rung startet beim aktuellen Menü. 

Neue Datendiskette einrichten 

new-disk ( ==>) 

Dieser Vorgang dauert etwa 25 Minuten. Beim Aufruf muß 
eine eingerichtete Datendiskette oder die Programmdiskette 
im Laufwerk sein. Bei Aufforderung legt man die neue Dis- 
kette ein. Es wird eine Titelzeile angefordert und dann mit die- 
ser Datei gestartet. 

Diskette aufräumen 
verify ( ==>) 

Ungenutzte Blöcke werden freigegeben. Dieser Vorgang 
wird mit zunehmender Anzahl von Daten immer zeitrauben- 
der. Man kann ihn auf dem Bildschirm beobachten. Ein fehler- 
haftes Ändern mit dem Editor kann »verify« nicht immer korri- 
gieren. 

Menü anwählen 
I(Blocknumner ==>) 

Das Menü beziehungsweise die Antwort mit der eingege- 
benen Blocknummer erscheint. Die Eingabe kann durch die 
Positionierung des Cursors unter die entsprechende Menü- 
zeile erfolgen. 

Rückwärtsschritt 
-( ==>) 

Es erfolgt die Rückkehr zum vorher aufgerufenen Menü. 
Die Ebene wird vermindert, im Protokoll sind jedoch alle 
Schritte festgehalten. »—« dient unter anderem dazu, zum 
Editor zurückzukehren. 

Block zum Menü hinzufügen 
Neueintrag 
il) 

Sofern im Menü und auf der Diskette Platz ist, wird der 
durch Unterstrich angeforderte Text als neue Menüzeile an 
der ersten freien Stelle ins Menü eingefügt. 

Bestehenden Block einfügen 
x+! (Blocknummer ==>) 

Der mit Blocknummer angesprochene Block wird in das 
aktuelle Menü eingefügt, sofern noch Platz vorhanden ist. 
Menü zwischenschieben 
x- ( Blocknummer == 

Zwischen das aktuelle Menü und die angewählte Menü- 
zeile fügt sich ein Menü ein. Der Text wird durch Unterstrei- 
chen angefordert. 

Antwort löschen 
x- ( Blocknummer ==>) 

Der Block wird freigegeben, sofern es sich um einen 
Antwortblock handelt. 

Menü löschen 

Ein Menü muß, bevor es gelöscht werden kann, mit 
x= ( Blocknummer ===>) 
zum Antwortblock umgewandelt werden. Wenn keine Folge- 
blöcke vorliegen, wird das Menü laut Blocknummer zur 
Antwort. 

Menü in Antwort wandeln 
x=  ( Blocknummer ==>) 

Wenn keine Folgeblöcke vorliegen, wandelt sich das Menü 
zur Antwort. 

Text ändern 
corr ( Blocknummer ==>) 

Der im angewählten Block gespeicherte Text kann erneut 

eingegeben werden. 
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Direktes Andern mit dem Editor 

Diereine ASCII-Darstellung ermöglicht alle Blöcke direkt zu 
ändern. Natürlich ist hierbei besondere Vorsicht geboten, da 
man leicht Schleifen oder falsche Verknüpfungen schaffen 
kann, die später kaum zu entwirren sind. 

Hilte zum Finden eines Blocks 
scr? ( Blocknummer ==>) 

Es werden die Screen- und Zeilennummer zur hexadezimal 
eingegebenen Blocknummer dezimal angezeigt und in den 
Dezimal-Modus umgeschaltet. 

Bildschirmprotokoll 
Brote 

Das Protokoll der bisherigen Abfragen wird nach Ebenen 

gestaffelt auf dem Bildschirm ausgegeben. 


sc # 
3 MINL- Es FERTEH-ST=STEN —rfrert % 
| wWerwaltangsblaock Feat 
2 Wersion: Z.u8 
2 Cr Peter Elimahardt Februar 13265 
A - 1: 
a ae -1]1 
ee -1h 
r Daten-Diskette einleden |! 
= Leer-Diskette esinleaen | 
72 Beljiehi2e Ta=ste dJeuecken | 
19 mach Fol9e-Elsecke vorhanden 
ll ist Kein Mernue-E lic: 
l& ı3t Kein Antwort-Elcocp 
12 Diskette cl] 
14 alle Merue-Zeiler beleat 
15 We een aiere ee ee a en ee] 
scr # 7 
HM arlable und Konstante > 
l raorth Jerimikions Miex 
= 95 mit „" 1oadına: x-Pert" om or 
= N oe arlamle fen co Hummer Je 
en A uanmlable (ar 
1 3 warlable nach 
rn MH ooarisble aJdr C Zuizschenz=Ppej: 
1 A warlable txt Zu allot © Text-Ee 
=: Ei gonmztant arrtan? © erster ODatern- 
A at zanistant ende ce letzter Daten 
im ea canmztarnt bis © letzter benut 
11 HH varıabl= ern © HMenue-Eberne ) 
12 aka constant en © Mernue-— ee 
12 HH variable un ‘© Frotakfoll-Eber 
14 bis comz=tant vv  Eluck: s Tammeet [ 
15 mid mern 8; Minen I 3 
sr #5 
Mn « “arabeinztellungen > 
1 aazr 1720 \ Ü 152 Screenz Ir reiW N} 
2,“ gt CC schwarze Schrift 
3 : 1#+ IF + 3  Z21+ 21 #5 
4 code Frtor ( ==; > 
a € Mas9arbe auf Eilgdzschirm „ 
£ save stx. fFrcıo Jan, 
7 sz3aue dx, next Jmp 
si erndJ-coge 
a Frtorf <r Frto 
1 ara3Pphic *%clear 
11 Mi cn ==> z 
12 CC Eloxck nm loeschen ? 
12 1 ?eriugah blo=sk Jurp 483 209 fill 
14 1f+ Zeid zwar ! update 
Leis =): 
sım # 3 
u -—1l me==239»- ır 
1 code Frton (CC ==> „ 
= <c Au=Fabe auf Crucker > 
Do sam 56X, 4 1J3, 4 # 1Jx, 
4 r’ # 1ldJv, rrba Jar, C 5ETLFS . 
= a # 193, trbdg Jsr. SE THIEIN 2 
E frcha jJsr. x ÖFEH 
a 4 # 13x, Frı3 jsr, C EHRT 2 
2 waane ]dx. Mmext ImP. 
3 end-coade 
15 ern x ==> b > 
il < A5SCII-HER in hex-Wert uandelr: > 
1 ?ernmuaah dup Zu = if drop KM else 
i: 393 — dur 3 > ıf 7 - endif endif 
14 
15 > dd 5, ob 
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Ausdruck des Protokolls 
Iprat (==) 

Geschachtelter Ausdruck der bisher aufgerufenen Menüs 
und Antworten. 

Ausdruck der Gesamtdatel 
print ( ==>) 

Alle belegten Datenblöcke werden in numerischer Reihen- 
folge mit Blocknummer, Text, Blockkennung und den Num- 
mern der Folgeblöcke ausgedruckt. 

Ausdruck der Baumstruktur 
baum ( == 

Beginnend ab dem aktuellen Menü als Stamm, wird die 
Baumstruktur in Form einer Gliederung ausgedruckt. Durch 
manuelle Menü-Verknüpfungen entstandene Schleifen füh- 
ren zum Stack-Überlauf und Systemabsturz. 

Beschreibung der einzelnen Datenblöcke 


Bytes Inhalt 

O0-1e 31 Byte Text 

1f Blocktyp-Kennung 
-: freier Block 
=: Antwort-Block 
>: Menü-Block 
v: Verwaltungs-Block 

20-3e zehn Folgeblock-Nummern jeweils drei 
ASCII-Zeichen als Hexadezimal-Zahl. Dieses 
Verfahren ist platzsparend und gestattet 
eine direkte Editierung. 

3f unbenutzt: blank 

20 unbenutzt: Punkt 


Aktıyellen Merue-Elocks 2 


u 
ich ı 
2ck 2 
a zuızk > 
=r Daten-Eloch 3 
Graphik-Eereich » 
S Listing 1. »x-pert«, 
olae Grarhik-Esereich? ein Minl-Expertensystem 


Verwaltungsblock-Beschreibung 
Blocknummer 31 <hex> 


Bytes Inhalt 

O0-1e 'Verwaltungsblock' 

1f v 

20 or 

21-23 erster Datenblock 
24-26 letzter Datenblock 
27-29 letzter belegter Block 
2a... Rest ungenutzt 


x-pert ist in Forth 64 für den Commodore 64 geschrieben, 
sollte aber mit nur geringfügigen Modifikationen auf jedem 
anderen Computer unter FIG-Forth laufen. 

Speziell für die Besitzer von Forth 64 sind in Listing 2 die 
Screens 40 bis 43 gedacht. Sie enthalten eine verbesserte 
Version der in Forth 64 fehlerhaften Wörter »triad« und eine 
verbesserte Version des Worts »dump«. 

Diese Abänderung belegt keinen weiteren Speicherplatz, 
da sie in das bestehende System hineingeschrieben wird. 

Allerdings ist sie daher auch wirklich nur mit Forth 64 zu 
verwenden, was jedoch nicht weiter schlimm ist, da diese 
Fehler ja ebenfalls spezifisch sind. 

(Peter Klinghardt/ev) 
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Listing 1. »x-pert«, ein Mini-Expertensystem (Schluß) 
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Listing 2. Zwei Verbesserungen zu Forth 64 (Schluß) 


Am Anfang war das Wort.. 


Programmieren in Forth bedeutet, neue Wörter zu 
schaffen, indem bereits definierte Befehle zu 
immer komplexeren Gruppen zusammengefaßt 


werden. 

x programmiert, der programmiert nicht; der schafft sich 
neue Wörter, wobei am Ende oft ein einziges Wort 

steht, das dann das fertige Programm repräsentiert. 

Diese Art des Programmierens bietet gegenüber der her- 
kömmlichen Unterprogramm-Technik erhebliche Vorteile: 

- Jedes Wort ist quasi eine Spracherweiterung, das heißt das 
Computersystem wächst mit dem Programmierer. Je mehr 
man in Forth programmiert hat, desto häufiger kann man auf 
Befehle zurückgreifen, die man Monate zuvor geschaffen 
hat. Dadurch nimmt die Produktivität des Programmierers 
EeNOFM Zu. 

- Es ist einfacher, einzelne Wörter auf ihre Richtigkeit zu 
überprüfen, als ein ganzes Programm. Forth-Programme sind 
also zuverlässiger und man verliert weniger Zeit bei der Feh- 
lersuche (Debugging). 

- Die Programmpflege gestaltet sich erheblich einfacher als 
in allen anderen Sprachen, da, um ein Programm neu anzu- 
passen, meist nur ganz wenige grundlegende Wörter abzu- 
ändern sind. Dasist für alldiejenigen wichtig, die zum Beispiel 
vorhaben, irgendwann auf einen anderen Computer umzu- 
steigen, und Ihre Programmsammlung dann weiter verwen- 
den wollen. Wer einmal versucht hat, Basic-Programme vom 
C 64 auf einen anderen Computer umzuschreiben, der weiß 
das zu würdigen. 

Daß Forth schwer zu erlernen sei, ist nur ein Gerücht. Forth 
ist sehr ungewöhnlich, aber auch nicht schwieriger als Basic 
oder Pascal. Nur wer sich nicht von gewohnten Konzepten 
trennen kann, mag anfangs Schwierigkeiten haben. 

Wie schafft sich der Forth-Programmierer nun seine neuen 
Wörter? Es gibt prinzipiell drei Möglichkeiten, die die Stich- 
wörter Colon-Definition, Primitive und Compiler umreißen. 
Die Colon-Definition 

Die Colon-Definition ist die übliche Methode, Wörter zu 
bauen. Die meisten Programme bestehen aus kaum mehr als 
einer Reihe von solchen Definitionen. 


, ıy#rjrin m 
» 


orth ist eine sehr leistungsfähige Sprache. Wer in Forth 








Eine Colon-Definition besteht aus: 
Anfang, Name, Definition, Ende. 

Den Anfang kennzeichnet in Forth ein Doppelpunkt (engl. 
Colon, daher der Name dieser Definitionsart), darauf folgt der 
Name des zu definierenden Wortes. Die dann folgende Defi- 
nition ist nichts weiter als eine Liste bereits bekannter Forth- 
Wörter, die vom System immer dann ausgeführt werden sol- 
len, wenn der neue Name als Anweisung auftaucht. Das Ende 
der Colon-Definition aktiviert ein Semikolon. 

Ein Beispiel: 

S PEIRA ML 5 

VLIST zeigt, daß PETRA nun ganz oben im Dictionary steht! 
PETRA addiert eine 5 und zeigt das Ergebnis an. Zum Bei- 
spiel ergibt 

10 PETRA 

nach Drücken der Return-Taste die Meldung 

15 OK 

Die eben durchgeführte Colon-Definition von PETRA 
repräsentiert natürlich kein besonders gutes Beispiel für 
sinnvolle Programmierung in Forth, denn normalerweise wird 
man als Namen für ein Wort immer eine aussagekünftige 
Bezeichnung wählen (in diesem Falle vielleicht »PLUS- 
FUENF.«). Die Bezeichnung PETRA sollte nur zeigen, daß 
man in Forth bei der Namensgebung völlig freie Hand hat. 
Forth und Maschinensprache 

Wer etwas Ahnung von Maschinensprache hat, der sollte 
nicht denken, »da brauche ich Forth ja nicht mehr«, sondern 
kann seine Kenntnisse sehr sinnvoll einbringen. Es besteht 
die Möglichkeit, Wörter statt wie eben in »High-Level«, also 
als Colon-Definition, auch als sogenannte »Primitive«, das 
heißt in Maschinensprache, zu schreiben. Dazu benötigt man 
einen Forth-Assembler, den die meisten Forth-Versionen 
gleich mitanbieten. 

Ein Maschinen-Befehl besteht in der Regel aus Befehls- 
wort und Operanden. 

Im 6502-Assembler lautet beispielsweise der Befehl zum 
Laden des Akkumulativs mit der Konstanten 1 
LDA #1 

Der Forth-Assembler benötigt hier die umgekehrte Nota- 
tion, also erst den Operanden: 

01 # LDA, 
(man beachte das Komma hinter LDA!). 
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Als Beispiel ein kleiner Vergleich: 


6502-Assembler 

$C000 CLC $C009 RTS 
$C001 LDA $DO2O $C0O0OA NOP 
$C004 ADC #$01 $C00B NOP 
$C006 STA $DO20 

Forth 

SCR # ı 

0 (PRIMITIVES) 

1 

2 CODE DANI GLC, 

3 53280 LDA, 

4 1 # ADC, 

5 53280 STA, 

6 NEXT JMP, END-CODE 


NEXT ist die Einsprungstelle für den »Inneren Interpreter« 
von Forth. Der Innere Interpreter kümmert sich darum, wel- 
ches Wort als nächstes an die Reihe kommt, dem »Äußeren 
Interpreter« fällt die Aufgabe Benutzer und Eingaben zu. 

Es ist empfehlenswert, Programme zunächst in High-Level 
zu erzeugen; falls die Geschwindigkeit dann nicht ausreicht, 
genügt es meistens, ein oder zwei Worte als Primitive umzu- 
schreiben. Das ist erheblich effektiver, als würde man das 
ganze Programm in Assembler schreiben. Oft erübrigt sich 
auch das, da Forth sowieso 100- bis 400-mal schneller als 
Basic läuft. 

Und nun für ganz Raffinierte: Wir können Wörter erfinden, 
die uns die »Arbeit« des Wörterbauens abnehmen. Dieser 
Punkt macht Forth so leistungsfähig. Als typischer Vertreter 
dieser Wörter steht CONSTANT. »n CONSTANT name« 
schafft ein neues Wort namens »name«, das bei Aufruf n auf 
den Stack legt. Beispiel: 

1024 CONSTANT SCREEN 
definiert zunächst das Wort SCREEN. Der Leser kann sich 
davon mit Hilfe von VLIST überzeugen. 

SCREEN legt dann den Wert 1024 auf den Stapel. Beispiel: 
SCREEN 500 + . 


1524 OK ‚ 
Anstelle von 1024 (Adresse des ersten Byte des Bild- 


schirmspeichers) kann also überall im Programm SCREEN 
einspringen. 

Will man später das Programm auf einem Computer laufen 
lassen, bei dem der Bildschirmspeicher vielleicht bei 4096 
beginnt, so braucht man nur ein einziges Wort abändern: 

: SCREEN 4096 ; 
Praktisch, nicht wahr? 

Das Wort CONSTANT schafft also eine ganz neue Klasse 
von Wörtern, eben mit der Eigenschaft, Konstanten zu sein. 

Ein Wort wie CONSTANT muß also zweierlei tun: Erstens 
das Wort »name« ins Dictionary eintragen, und zweitens 
»name« sagen, was es tun soll, wenn der Benutzer »name« 
aufruft. 

Zunächst erfinden wir also mit Hilfe einer Colon-Definition 
ein Wort wie CONSTANT. Nennen wir es ANGEBER. ANGE- 
BER schafft nun eine neue Klasse von Wörtern, nämlich 
Angeber-Wörter. Das sieht so aus: 

: ANGEBER (BUILDS DOES) ; 

Zwischen <BUILDS und DOES> steht die Angabe, wie 
der Wortkörper auszusehen hat, hier steht also gar nichts; 
zwischen DOES> und »;« steht, was die Angeber-Wörter 
dann ausführen sollen, hier also ebenfalls nichts. DOES> 
bewirkt, daß die PFA (Parameterfeldadresse) des Wortes 
»name« auf den Stack gelegt wird. Die PFA ist die Adresse 
des ersten Bytes des Parameterfeldes. Das Parameterfeld 
beinhaltet eine Liste im Wortkörper, die das Wort zur Ausfüh- 
rung benötigt. Bei Primitives steht da der ganze Maschinen- 
code, bei High-Level-Wörtern besteht das Parameterfeld aus 
einer Liste der Adressen der Wörter, die abgearbeitet werden 
sollen, die also in der Colon-Definition standen. 
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Probieren wir ANGEBER einmal aus: 
ANGEBER MICHAEL 

Wir überzeugen uns mit VLIST, daß Michael als neues Wort 
im Dictionary steht! Nun rufen wir MICHAEL auf. Was passiert ? 
Nichts, außer daß die PFA von MICHAEL auf dem Stack liegt. 
Deshalb ist MICHAEL ein Angeber: er gibt seine PFA an, aber 
nichts dahinter! 

Probieren wir etwas anderes: 
: NICHTSNUTZ (BUILDS DOES) DROP ; 

Wir vermuten, die Nichtsnutz-Wörter entfernen sogar noch 
ihre PFA. Wir geben zunächst ein: 

NICHTSNUTZ WALTER 

und dann 

WALTER 

und tatsächlich, nichts passiert. 

Versuchen wir einmal, Konstanten bauen zu lassen: 
: CONSTANTINOPEL (BUILDS , DOES) @ ; 

Das »,«e bewirkt, daß die oberste Zahl vom Stack genommen 
und ins Dictionary, also in das Parameterfeld, gepackt wird. 
Die durch CONSTANTINOPEL definierten Wörter holen diese 
Zahl wegen @dann wieder auf den Stack. Der Vorgang wie- 
derholt sich dauernd. Beispiel: 

1024 CONSTANTINOPEL SCREEN 
SCREEN 500 + . 
1524 OK 

Aha! Prima, aber wir hätten es natürlich auch einfacher 
haben können: 

: CONSTANTINOPEL CONSTANT ; 

Zum Abschluß wollen wir noch ein »richtiges« Programm 
schreiben, nämlich einen Maskengenerator, der die Bild- 
schirmseite irgendwo speichert und bei Bedarf immer wieder 
holen kann. Am besten bringen wir den ganzen Bildschirm in 
einer einzigen Variablen unter. Der Leser wird schon erraten 
haben: Wir benötigen einen neuen Variablentyp. Nennen wir 
ihn MASKE. Die Masken sollen in ihrem Parameterfeld 
zunächst 1000 Leerzeichen, also 1000mal den Bildschirm- 
code 32 haben. Das erledigt eine Schleife, also in Basic: 
FOR I=0 TO 999 
Das sieht in Forth etwas anders aus: 
1000 0 DO 

Die Punkte stehen für eine Anweisung. Nun brauchen wir 
noch ein Wort, um die 1000 Byte zu transportieren. Dazu bie- 
tet uns Forth 
CMOVE (a a n-) 
an. CMOVE verlagert n-Byte von der Adresse a nach a. 

PFA 1024 1000 CMOVE bringt uns also die Bytes aus der 
Maske (ab a PFA) in den Bildschirmspeicher. 

Den Ausdruck 

1024 1000 CMOVE 

kürzen wir durch »M@« ab. 

MASKE ANDREA 

kreiert uns eine Leermaske namens ANDREA. 

ANDREA M@ 

holt uns ANDREA in den Bildschirmspeicher. Zum Speichern 
mit »M!« werden nur die Adressen a und a vertauscht (siehe 
Listing). Damit besitzen wir bereits einen primitiven Masken- 
generator! Wir können ihn als »Notizzettelspeicher« verwen- 
den, oder als »virtual screen buffer«, oder um mit mehreren 
Bildschirmen zu arbeiten, und so weiter. 

MASKMAKER ist eine etwas komfortablere Version: PAGE 
löscht den Bildschirm (ASCII-Code 147 beim C 64), KEY 
erwartet solange eine Tastatureingabe, die mit EMIT auf den 
Bildschirm gebracht, bis RETURN gedrückt wird. Dann wird 
die fertige Maske mit »M!« gespeichert. 

Wer will jetzt noch behaupten, Forth sei unübersichtlich? 
Man beachte, daß der ganze Maskengenerator lediglich 127 
Byte lang ist, also gerade zwei oder drei Basic-Zeilen ent- 
spricht. 

(Andreas Carl/ev) 
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